小编Sav*_*rio的帖子

我编写了一个代码来仅使用sheet1保存新文件。问题是，我在保存文件时在对话框中单击 esc 或取消，新文件在目录中保存为 FALSE，相反，如果我单击 esc 或取消，我不想保存文件

我尝试添加一个 if ，例如： If thisfile="FALSE" then exit sub; 但它不起作用。

Sub test()
Dim thisfile As Variant

    thisfile = Range("Y5").Value & Range("C16").Value & "_" & Range("K41").Value

    Worksheets("Sale Dispo Approval").Copy

    With ActiveWorkbook

        .SaveAs Application.GetSaveAsFilename(InitialFileName:=thisfile, fileFilter:="Excel Files (*.xlsx), *.xlsx")

        .Close savechanges:=False
    End With

End Sub

我希望我单击“取消”或“退出”时不会保存新文件。