VBA中On Error GoTo ErrorHandler仅首次生效问题求助

问题根源 #

你原代码的核心问题是第一次触发错误后，错误处理状态未重置：当i=375触发错误跳转到ErrorHandler后，VBA的错误处理机制处于激活状态，后续循环的On Error GoTo语句不会生效，导致i=376时无法捕获错误直接报错。同时，缺少Resume类语句重置错误状态，也会导致错误处理逻辑失效。

修正方案1：修复错误处理逻辑 #

调整错误处理结构，确保每次循环都重置错误状态，且出错后直接跳过当前循环：

Sub CopyRunsheetData()
    Dim i As Integer
    Dim wbSource As Workbook, wbTarget As Workbook
    
    For i = 375 To 999
        On Error GoTo SkipCurrentLoop ' 为当前循环设置错误捕获
        
        ' 仅当源文件打开成功时，才执行后续操作
        Set wbSource = Workbooks.Open("Path" & "\" & "Run " & i & " Runsheet")
        Set wbTarget = Workbooks.Open("Path2" & "\" & "Run " & "0" & i)
        
        ' 【补充：这里添加你需要的复制数据逻辑】
        
        ' 按需关闭工作簿（根据实际需求调整SaveChanges参数）
        ' wbSource.Close SaveChanges:=False
        ' wbTarget.Close SaveChanges:=True
        
SkipCurrentLoop:
        On Error GoTo 0 ' 重置错误处理状态，确保下一次循环能正常捕获错误
    Next i
End Sub

关键调整点： #

• 每次循环开头重新设置On Error GoTo，确保每个循环周期的错误捕获独立有效
• 错误跳转后用On Error GoTo 0清空错误状态，避免影响下一次循环
• 源文件打开失败时，直接跳过后续的目标文件打开及数据复制步骤

修正方案2：提前判断文件存在性（更高效稳定） #

用Dir函数提前检查源文件是否存在，完全避免错误触发，代码逻辑更清晰：

Sub CopyRunsheetData()
    Dim i As Integer
    Dim wbSource As Workbook, wbTarget As Workbook
    Dim sourceFilePath As String, targetFilePath As String
    
    For i = 375 To 999
        sourceFilePath = "Path" & "\" & "Run " & i & " Runsheet"
        
        ' 先检查源文件是否存在，不存在直接跳过
        If Dir(sourceFilePath) = "" Then
            GoTo SkipCurrentLoop
        End If
        
        ' 文件存在时执行后续操作
        Set wbSource = Workbooks.Open(sourceFilePath)
        targetFilePath = "Path2" & "\" & "Run " & "0" & i
        Set wbTarget = Workbooks.Open(targetFilePath)
        
        ' 【补充：这里添加你需要的复制数据逻辑】
        
        ' 按需关闭工作簿
        ' wbSource.Close SaveChanges:=False
        ' wbTarget.Close SaveChanges:=True
        
SkipCurrentLoop:
    Next i
End Sub

优势： #

• 避免依赖错误处理机制，代码执行更高效
• 逻辑直观，便于维护和排查问题

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