在 SaveAs 期间要求替换文件时选择 "No"或 "Cancel"时出现 VBA 错误

Question

我有用于将工作簿保存在具有特定名称的特定文件夹中的代码。当文件已经存在时，问题就会出现。我将“ConflictResolution”设置为询问用户，但当用户选择 No 时，我得到“运行时错误 1004:对象_Workbook 的方法 SaveAs 失败”或 Cancel在对话框上。

我不确定如何或是否可以在 No 上退出或 Cancel或者我是否应该在本节中添加自定义错误处理？

  NewFileType = "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm," & _
               "All files (*.*), *.*"

    NewFile = Application.GetSaveAsFilename( _
        InitialFileName:=SaveArea & newfilename, _
        fileFilter:=NewFileType)

    If NewFile <> "" And NewFile <> "False" Then
        ActiveWorkbook.SaveAs FileName:=NewFile, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
            CreateBackup:=False, _
            ConflictResolution:=xlUserResolution
    End If

Answer 1

您应该处理 SaveAs 方法引发的错误。例如。

 If NewFile <> "" And NewFile <> "False" Then
    On Error Resume Next
    ActiveWorkbook.SaveAs Filename:=NewFile, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
        CreateBackup:=False, _
        ConflictResolution:=xlUserResolution
    If Err.Number <> 0 Then
        MsgBox Err.Description
    End If
    On Error GoTo 0
 End If

或者，在调用 SaveAs 之前检查文件是否存在