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

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