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

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