Excel VBA遍历子文件夹遇空文件夹报错，错误捕获失效求助

你的问题核心是错误处理的逻辑没设置对，导致On Error GoTo没起到预期的跳过效果。我来帮你梳理问题并给出两种可行的解决方案：

一、先分析原代码的问题 #

1. 你把On Error GoTo FirstFunction放在了If o=0的分支里，而且跳转目标是循环开头的FirstFunction标签，这会打乱For Each循环的上下文，导致错误处理后无法正确进入下一次循环。
2. 错误触发后没有重置错误状态，后续的错误捕获会失效。
3. 没有区分“文件不存在”和其他可能的错误，处理逻辑不够精准。

二、方案1：用错误捕获+正确的循环跳转（适合需要处理多种打开错误的场景） #

调整错误处理的位置和跳转逻辑，确保出错后直接跳过当前文件夹，进入下一次遍历：

For Each Folder In SUBFOLDER
    FolderName = Folder.name
    FoundFolder = Folder.name
    o = 0
    
    ' 检查当前文件夹是否在指定列表中
    For z = 2 To k + 1
        If FoundFolder = Workbooks(Stamm).Sheets("Einzelwerte").Cells(4, z).Value Then
            o = o + 1
        End If
    Next z
    
    If o = 0 Then
        ' 启用错误捕获，指定出错后跳转到SkipFolder标签
        On Error GoTo SkipFolder
        
        ' 尝试打开目标文件
        Workbooks.Open Filename:=strOrdner & FoundFolder & "\" & Quelldatei, Local:=True
        
        ' --- 这里写文件打开成功后的处理逻辑 ---
        ' 比如提取工作表信息等操作
        ' ...
        
        ' 恢复默认错误处理（避免影响后续代码）
        On Error GoTo 0
    End If
    
    ' 错误处理标签：跳过当前文件夹
SkipFolder:
    ' 清除错误状态，确保下一次循环能正常捕获错误
    Err.Clear
    ' 直接进入下一个文件夹的遍历
    Resume Next
Next Folder

关键修改点： #

• 把错误捕获移到Workbooks.Open之前，跳转目标改为SkipFolder标签，专门处理跳过逻辑；
• 用Resume Next直接让For Each循环进入下一项，避免循环上下文混乱；
• 成功打开文件后用On Error GoTo 0关闭错误捕获，防止后续正常代码被错误处理干扰。

三、方案2：先检查文件是否存在（更优雅，避免触发错误） #

如果你的场景只是担心“文件夹为空导致找不到指定文件”，可以先通过Dir函数检查文件是否存在，完全避免错误触发：

For Each Folder In SUBFOLDER
    FolderName = Folder.name
    FoundFolder = Folder.name
    o = 0
    
    ' 检查当前文件夹是否在指定列表中
    For z = 2 To k + 1
        If FoundFolder = Workbooks(Stamm).Sheets("Einzelwerte").Cells(4, z).Value Then
            o = o + 1
        End If
    Next z
    
    If o = 0 Then
        Dim targetFilePath As String
        targetFilePath = strOrdner & FoundFolder & "\" & Quelldatei
        
        ' 先检查文件是否存在
        If Dir(targetFilePath) <> "" Then
            ' 文件存在，再打开处理
            Workbooks.Open Filename:=targetFilePath, Local:=True
            
            ' --- 这里写文件打开成功后的处理逻辑 ---
            ' ...
        Else
            ' 可选：打印日志，记录哪个文件夹里没找到文件
            Debug.Print "未找到目标文件：" & targetFilePath
        End If
    End If
Next Folder

这种方式不需要依赖错误捕获，逻辑更直观，也更容易维护，推荐优先使用。

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