Excell VBA Сохранить файл
Формулировка задачи:
Здравствуйте.
Мне нужно чтобы при нажатии пользователем "Сохранить как" предлагалось нужное имя файла и диалоговое окно не высвечивалось два раза. Подскажите пожалуйста как это сделать.
Мне нужно чтобы при нажатии пользователем "Сохранить как" предлагалось нужное имя файла и диалоговое окно не высвечивалось два раза. Подскажите пожалуйста как это сделать.
Решение задачи: «Excell VBA Сохранить файл»
textual
Листинг программы
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fname As String
SaveAsUI = False
fname = Application.GetSaveAsFilename(CStr(Sheets(1).Range("A1").Value) & ".xls", "Excel Files (*.xls), *.xls")
application.enableEvents = 0
ThisWorkbook.SaveAs fname
Cancel = True
application.enableEvents = 1
End Sub