VBA Excel - 当用户取消GetSaveAsFilename弹出框时退出sub

Question

我写了一个分配给按钮的代码。按下按钮时，它会创建一个新工作簿，并询问用户保存新文件的位置。

我想确保如果用户单击“取消”，则会关闭新工作簿并退出子工作簿。

我写了如下，但我不知道如何编写更好的代码。我知道if可以改进。

Option Explicit

Sub Create_a_new_workbook_and_save_it()

Dim xlPath As String

Workbooks.Add

Application.DisplayAlerts = False

xlPath = Application.GetSaveAsFilename(Title:="Select where you want to save your file") & "xlsm"

If xlPath = "Falsexlsm" Then
    ActiveWorkbook.Close
    Exit Sub
End If

ActiveWorkbook.SaveAs _
    Filename:=xlPath, FileFormat:=52

Application.DisplayAlerts = True

End Sub

Answer 1

以上代码正常运行....