宏保存路径不存在时的错误处理及跳过执行需求咨询

遇到外部驱动器未连接导致备份失败的问题很常见，我们可以通过VBA的错误处理机制来跳过出错的步骤，同时记录每个备份位置的状态，最后用消息框告诉你详细结果。这里是改造后的完整代码：

Sub SaveToLocations()
    ' 保存活动文件到原位置及两个备份位置，文件名前追加日期时间戳
    Dim datim As String
    Dim saveSuccess As Boolean
    Dim resultMsg As String
    
    ' 初始化结果消息
    resultMsg = "备份执行结果：" & vbCrLf & vbCrLf
    
    ' 生成日期时间戳，避免文件名重复
    datim = Format(Now, "yyyy_mm_dd_hh_mm_ss_")
    
    ' 处理第一个备份位置：I盘
    On Error Resume Next ' 临时开启错误忽略，允许后续代码继续执行
    ActiveWorkbook.SaveCopyAs "I:\FBackupCS\" & datim & ActiveWorkbook.Name
    saveSuccess = (Err.Number = 0) ' 判断是否保存成功（无错误则Err.Number为0）
    On Error GoTo 0 ' 关闭错误忽略，恢复默认错误处理逻辑
    
    ' 更新结果消息
    If saveSuccess Then
        resultMsg = resultMsg & "✅ 成功备份到 I:\FBackupCS\" & vbCrLf
    Else
        resultMsg = resultMsg & "❌ 无法备份到 I:\FBackupCS\ - 可能是驱动器未连接或路径不存在" & vbCrLf
    End If
    
    ' 处理第二个备份位置：E盘
    On Error Resume Next
    ActiveWorkbook.SaveCopyAs "E:\CS Docs\FBackupCS\" & datim & ActiveWorkbook.Name
    saveSuccess = (Err.Number = 0)
    On Error GoTo 0
    
    If saveSuccess Then
        resultMsg = resultMsg & "✅ 成功备份到 E:\CS Docs\FBackupCS\" & vbCrLf
    Else
        resultMsg = resultMsg & "❌ 无法备份到 E:\CS Docs\FBackupCS\ - 可能是驱动器未连接或路径不存在" & vbCrLf
    End If
    
    ' 保存原文件
    On Error Resume Next
    ActiveWorkbook.Save
    saveSuccess = (Err.Number = 0)
    On Error GoTo 0
    
    If saveSuccess Then
        resultMsg = resultMsg & "✅ 原文件已成功保存" & vbCrLf
    Else
        resultMsg = resultMsg & "❌ 原文件保存失败" & vbCrLf
    End If
    
    ' 弹出结果提示框
    MsgBox resultMsg, vbInformation, "备份完成"
End Sub

关键细节解释 #

• 错误控制：On Error Resume Next会让代码在遇到错误时不中断，继续执行下一行；执行完备份操作后，我们通过Err.Number判断是否出错，之后用On Error GoTo 0恢复正常的错误处理，避免后续代码意外忽略重要错误。
• 状态反馈：用resultMsg变量逐步拼接每个位置的备份状态，最后通过MsgBox展示，让你一目了然知道哪个位置成功、哪个出了问题。
• 扩展性：如果以后要添加更多备份位置，直接复制第二个备份位置的代码块，修改路径即可，非常方便。

如果你想提前验证驱动器是否存在（而不是等错误发生），也可以用FileSystemObject来检查路径，但上面的错误处理方式更直接，适合大多数日常备份场景。

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