VBA取消SaveAs操作后仍保存为False，如何实现点击取消即退出子程序

这个坑我之前踩过好几次！核心问题在于Application.GetSaveAsFilename的返回值逻辑：当用户点击「取消」或关闭窗口时，它返回的是布尔值False，而不是字符串类型的路径。你原来的代码直接把这个返回值丢给SaveAs，VBA会自动把布尔值转换成字符串"False"，所以才会出现那个莫名其妙的文件。

要实现「取消就退出子程序」的效果，只需要先捕获返回值，判断用户是否取消操作，再决定后续逻辑就行，修正后的代码如下：

Sub SaveNewWorkbookProperly()
    Dim selectedPath As Variant
    
    ' 弹出保存对话框，获取用户选择的路径/取消信号
    selectedPath = Application.GetSaveAsFilename( _
        fileFilter:="Excel Workbook (*.xlsx), *.xlsx")
    
    ' 检查用户是否取消了操作
    If selectedPath = False Then
        ' 可选：给用户一个提示，也可以直接静默退出
        MsgBox "保存操作已取消", vbExclamation
        Exit Sub ' 直接退出子程序，不执行后续的新建和保存
    End If
    
    ' 只有用户选择了有效路径，才执行新建和保存
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=selectedPath
    MsgBox "工作簿已成功保存至：" & selectedPath, vbInformation
End Sub

关键细节说明： #

• 用Variant类型的变量接收返回值：因为这个方法的返回值可能是字符串（有效路径）或布尔值（取消），Variant能兼容两种类型，要是用String的话，用户取消时会直接抛出类型不匹配的错误。
• 先判断再执行：把Workbooks.Add放在判断之后，避免用户取消后还新建一个空白工作簿（原来的代码会先新建再保存，取消后空白工作簿还留在那里，这个优化能让流程更合理）。
• 退出用Exit Sub：直接终止当前子程序的执行，完美符合你要的「取消就退出」的需求。

内容的提问来源于stack exchange，提问作者Wiktor Orczykowski