Как обрабатывать ошибки и «отменять» в Excel Macro?

Question

У меня есть следующий скрипт, который предлагает пользователю сохранить файл в формате .xlsx с исходным именем файла «Отчет». Если пользователь сохраняет документ, все сохраняет правильно. Но если пользователь выбирает «отменить», Excel сохраняет файл как «FALSE.xlsx». Как сделать так, чтобы файл вообще не сохранялся, а оставлялся открытым?

path = "C:\Report\"
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=path & "Report", _
 fileFilter:="Excel Workbooks (*.xlsx; *.xlsx),*.xlsx;*.xslx")
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlOpenXMLWorkbook

Answer 1

path = "C:\Report\"
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=path & "Report", _
                   fileFilter:="Excel Workbooks (*.xls; *.xlsx),*.xls;*.xslx")
If fileSaveName <> False Then
    Application.DisplayAlerts = True
    ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlOpenXMLWorkbook
End If