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

Question

问候一个和所有 - 一个圣诞节难题，任何人仍然看着这个网站...这工程，但如果我决定取消过程（即不保存文件，并在这个阶段停止进程）它不会损害文件，但下面的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

备选：

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