在SaveAs期間要求替換文件時，選擇“否”或“取消”時出現VBA錯誤

Question

我有用於將工作簿保存在具有特定名稱的特定文件夾中的代碼。 當文件已存在時，問題就出現了。 我將“ConflictResolution”設置為詢問用戶，但是當用戶在對話框中選擇“ No或“ Cancel ”時，我得到“運行時錯誤1004：方法SaveAs of object _Workbook failed”。

我不確定如何或者是否可以退出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之前檢查文件是否存在