Excel 如果取消保存副本，如何使宏停止

向所有人致意-对于仍在查看此网站的任何人来说，这是一个圣诞谜题…这是可行的，但如果我决定取消此过程（即不保存文件并在此阶段停止此过程），它不会保存文件，但以下marco（FilltoAstrow2）仍处于激活状态，我如何才能阻止这种情况发生

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 

公共子存储acopycincomesheet（）
Dim文件名作为变量
文件名=Application.GetSaveAsFilename（“过期报告-草稿”，文件过滤器：=“Excel文件（*.xls），*.xls”）
如果文件名为False，则
ActiveWorkbook.SaveAs文件名：=文件名
MsgBox“文件已保存！”
如果结束
填充Tolastrow2
端接头

您可能需要

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

如果文件名为False，则
ActiveWorkbook.SaveAs文件名：=文件名
MsgBox“文件已保存！”
填充Tolastrow2
如果结束

备选方案：

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

---

这或多或少是一个如何不使用“GoTo”的例子。我敢肯定你听说过“如果-那么-否则”；）嗯，你是对的，我会像你的解决方案那样编写代码（因此是“备选方案：”），但我喜欢展示一些多样性。这个解决方案不是非法的，不会使代码更难理解，而且很简单，所以我认为没问题：）