如何在VBA For循环中遇错误时立即跳过当前迭代

以下是修正后的完整代码，加入了可靠的错误处理逻辑，能直接跳过损坏或无法访问的文件，同时优化了原代码的潜在问题：

Sub Separator()
    Dim oFSO As Object, oFolder As Object, oFile As Object
    Dim wb_output As Workbook, wb_input As Workbook
    Dim Path_String As String, sFileOutput As String, sFileInput As String
    
    ' 初始化路径（替换为你的目标文件夹路径）
    Path_String = "C:\Your\Target\Folder"
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(Path_String)
    
    ' 提前打开模板文件，避免循环内重复打开引发的锁定问题
    sFileOutput = Path_String & "\Extract_File_Template.xlsm"
    On Error Resume Next
    Set wb_output = Workbooks.Open(sFileOutput)
    On Error GoTo 0
    If wb_output Is Nothing Then
        MsgBox "模板文件无法打开，请检查路径或文件状态"
        Exit Sub
    End If
    
    For Each oFile In oFolder.Files
        ' 只处理xlsx格式文件，过滤其他类型
        If LCase(oFSO.GetExtensionName(oFile.Name)) = "xlsx" Then
            sFileInput = oFile.Path ' 直接用文件完整路径，避免手动拼接出错
            
            ' 尝试打开输入文件，开启错误捕获
            On Error Resume Next
            Set wb_input = Workbooks.Open(sFileInput)
            ' 检查是否打开失败
            If Err.Number <> 0 Then
                Debug.Print "无法打开文件：" & sFileInput & "，错误代码：" & Err.Number
                Err.Clear ' 清除错误状态
                On Error GoTo 0 ' 恢复正常错误处理
                GoTo NextFile ' 跳过当前文件，进入下一次循环
            End If
            On Error GoTo 0 ' 关闭临时错误捕获
            
            ' ----------------------
            ' 在这里执行你的数据提取逻辑
            ' 示例：将输入文件第一个工作表的A1:C10复制到模板文件
            ' wb_input.Sheets(1).Range("A1:C10").Copy wb_output.Sheets(1).Range("A1")
            ' ----------------------
            
            ' 建议另存为新文件，避免覆盖原模板
            ' wb_output.SaveAs Path_String & "\Extract_" & oFSO.GetBaseName(oFile.Name) & ".xlsm"
            
            ' 关闭输入文件，不保存更改
            wb_input.Close SaveChanges:=False
            Set wb_input = Nothing
        End If
        
NextFile:
    Next oFile
    
    ' 关闭模板文件（如需保存模板更改，将SaveChanges改为True）
    wb_output.Close SaveChanges:=False
    ' 清理所有对象变量
    Set wb_output = Nothing
    Set oFile = Nothing
    Set oFolder = Nothing
    Set oFSO = Nothing
    
    MsgBox "文件处理完成"
End Sub

关键逻辑说明 #

1. 精准错误捕获：在打开输入文件的步骤临时开启On Error Resume Next，通过Err.Number判断是否打开失败，一旦出错立即跳转到循环末尾，跳过当前文件的后续处理，同时恢复正常错误捕获避免影响其他代码。
2. 优化模板文件使用：原代码每次循环都打开模板，容易引发文件锁定和性能问题，现在改为循环外仅打开一次，循环内复用。
3. 文件类型过滤：加入.xlsx格式判断，避免遍历到其他无关文件导致错误。
4. 对象清理：每次循环后关闭输入文件并释放对象，循环结束后清理所有对象变量，防止内存泄漏。
5. 调试辅助：用Debug.Print输出错误文件路径和代码，方便后续排查具体损坏文件。

原代码的潜在问题修正 #

• 原代码中sFileInput用未赋值的i变量拼接路径，改为直接使用oFile.Path获取完整路径，避免手动拼接的错误。
• 原代码未关闭打开的文件，会导致后台残留大量Excel进程，现在每次循环后都关闭输入文件，循环结束关闭模板文件。

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