如果我取消保存副本，如何让我的macros停止

问候一个人和所有 – 一个圣诞节难题，任何人仍然看着这个网站…这工作，但如果我决定取消进程（即不保存文件，并在这个阶段停止进程）它不会svae文件，但下面的marco（filltolastrow2）仍然激活，我怎么能阻止这种情况呢？

Public Sub SaveaCopyIncomeSheet() Dim file_name As Variant file_name = Application.GetSaveAsFilename("Overdue Report - Draft", filefilter:="Excel Files(*.xls),*.xls") If file_name <> False Then ActiveWorkbook.SaveAs Filename:=file_name MsgBox "File Saved!" End If filltolastrow2 End Sub 

Answer 1

你可能想要

 If file_name <> False Then ActiveWorkbook.SaveAs Filename:=file_name MsgBox "File Saved!" filltolastrow2 End If 

Answer 2

替代scheme：

 Public Sub SaveaCopyIncomeSheet() Dim file_name As Variant file_name = Application.GetSaveAsFilename("Overdue Report - Draft", filefilter:="Excel Files(*.xls),*.xls") If file_name = False Then GoTo E_NoFileName ActiveWorkbook.SaveAs Filename:=file_name MsgBox "File Saved!" filltolastrow2 Exit Sub E_NoFileName: MsgBox "File Not Saved" End Sub