NameRez = "C:\Mat\Matan.xls"
PathExists
If FileExists = (Dir(NameRez) <> "") Then
Select Case MsgBox("заменять файл или не надо?", vbYesNo)
Case vbYes
Kill (NameRez)
Workbook.SaveAs NameRez
Case vbNo
Workbook.Close False
Exit Sub
End Select
else
Workbook.SaveAs NameRez
End If
Re
Да мне очень даже понравилсь с StrComp!!! Главное все отлично работает но у меня небольшая непонятка с сохранением файла(программа находиться в другом файле) часа 2 промучался и ни как!
Или может это можно подругому сделать? главное чтоб был диалог(записать,перезаписать)
Код:
Или может это можно подругому сделать? главное чтоб был диалог(записать,перезаписать)
Цитата:
Originally posted by den-911
Да мне очень даже понравилсь с StrComp!!! Главное все отлично работает но у меня небольшая непонятка с сохранением файла(программа находиться в другом файле) часа 2 промучался и ни как!
Или может это можно подругому сделать? главное чтоб был диалог(записать,перезаписать)
Да мне очень даже понравилсь с StrComp!!! Главное все отлично работает но у меня небольшая непонятка с сохранением файла(программа находиться в другом файле) часа 2 промучался и ни как!
Код:
NameRez = "C:\Mat\Matan.xls"
PathExists
If FileExists = (Dir(NameRez) <> "") Then
Select Case MsgBox("заменять файл или не надо?", vbYesNo)
Case vbYes
Kill (NameRez)
Workbook.SaveAs NameRez
Case vbNo
Workbook.Close False
Exit Sub
End Select
else
Workbook.SaveAs NameRez
End If
PathExists
If FileExists = (Dir(NameRez) <> "") Then
Select Case MsgBox("заменять файл или не надо?", vbYesNo)
Case vbYes
Kill (NameRez)
Workbook.SaveAs NameRez
Case vbNo
Workbook.Close False
Exit Sub
End Select
else
Workbook.SaveAs NameRez
End If
Или может это можно подругому сделать? главное чтоб был диалог(записать,перезаписать)
Может быть имеет смысл воспользоваться стандартным окном "Сохранить как". Например, так:
[COLOR=darkblue]
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
[/COLOR]
или даже так:
[COLOR=darkblue]
Application.Dialogs(xlDialogSaveAs).Show
[/COLOR]
Мне кажется, это проще, чем писать аналог самому.
Код:
NameRez = "C:\Mat\Matan.xls"
If Dir(NameRez) <> "" Then
Select Case MsgBox("заменять файл или не надо?", vbYesNo)
Case vbYes
Kill NameRez
ThisWorkbook.SaveAs NameRez
Case vbNo
ThisWorkbook.Close False
'Exit Sub
End Select
Else
ThisWorkbook.SaveAs NameRez
End If
If Dir(NameRez) <> "" Then
Select Case MsgBox("заменять файл или не надо?", vbYesNo)
Case vbYes
Kill NameRez
ThisWorkbook.SaveAs NameRez
Case vbNo
ThisWorkbook.Close False
'Exit Sub
End Select
Else
ThisWorkbook.SaveAs NameRez
End If
Примечание :
1) [COLOR=darkblue]PathExists[/COLOR] - имя процедуры есть, а текста нет …
2) [COLOR=darkblue]If FileExists = (Dir(NameRez) <> "") Then[/COLOR]
Вот этот вариант должен работать без ошибок :
[COLOR=darkblue]FileExists = Dir(NameRez)
If FileExists <> "" Then[/COLOR]