Excel宏：如何为文件复制VBA代码添加错误提示？

我来帮你完善这个VBA宏，添加实用的错误提示机制，这样遇到文件复制失败时，你能清晰知道具体的错误原因、涉及的文件路径以及对应表格行号，方便排查问题。同时我也调整了代码里的列索引，匹配你提到的G列作为源路径、H列作为目标路径的需求。

修改后的完整代码 #

Public Sub CopiaFile()
    Dim Origine As String
    Dim Destinazione As String
    Dim Last_Row As Long
    Dim i As Long
    Dim fs As Object
    
    ' 关闭屏幕刷新，提升运行效率（可选）
    Application.ScreenUpdating = False
    
    ' 获取数据最后一行
    Last_Row = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    ' 遍历第4行到最后一行的路径
    For i = 4 To Last_Row
        ' 读取G列（第7列）源路径和H列（第8列）目标路径
        Origine = Trim(Cells(i, 7).Value)
        Destinazione = Trim(Cells(i, 8).Value)
        
        ' 跳过空路径，避免无意义的错误
        If Origine = "" Or Destinazione = "" Then
            MsgBox "第" & i & "行存在空路径，请检查后重试！", vbExclamation, "空路径提示"
            GoTo NextIteration ' 跳转到下一次循环
        End If
        
        ' 启用错误捕获，遇到错误时跳转到ErrorHandler块
        On Error GoTo ErrorHandler
        
        ' 创建文件系统对象并执行复制
        Set fs = CreateObject("Scripting.FileSystemObject")
        fs.CopyFile Origine, Destinazione, OverwriteFiles:=True ' 加上Overwrite参数，可选覆盖已存在文件
        Set fs = Nothing
        
        ' 重置错误捕获，避免影响后续循环
        On Error GoTo 0
        
NextIteration:
    Next i
    
    ' 完成后的提示
    MsgBox "文件复制任务已完成！", vbInformation, "任务结束"
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    Exit Sub ' 正常结束，跳过错误处理块

' 错误处理块
ErrorHandler:
    ' 弹出错误提示，包含详细信息
    MsgBox "第" & i & "行复制失败：" & vbCrLf & _
           "源路径：" & Origine & vbCrLf & _
           "目标路径：" & Destinazione & vbCrLf & _
           "错误原因：" & Err.Description, vbCritical, "复制错误"
    
    ' 清理对象
    If Not fs Is Nothing Then Set fs = Nothing
    
    ' 重置错误捕获，继续下一次循环
    On Error GoTo 0
    Resume NextIteration ' 回到循环的下一次迭代
End Sub

关键错误处理说明 #

• 空路径检查：在复制前先判断源或目标路径是否为空，提前提示用户，避免无效操作。
• 错误捕获与跳转：使用On Error GoTo ErrorHandler捕获复制过程中的所有错误（比如文件不存在、权限不足、路径无效等）。
• 详细错误信息：提示框中包含错误行号、源/目标路径、系统返回的错误描述，让你快速定位问题。
• 错误后恢复：处理完错误后重置错误捕获，并用Resume NextIteration继续下一个文件的复制，不会因为单个错误中断整个任务。
• 可选优化：添加了OverwriteFiles:=True参数，如果目标文件已存在会直接覆盖；如果不需要覆盖，可以把这个参数改成False，此时若目标文件存在会触发错误并提示。

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