如何用Excel VBA搜索网络文件夹及子文件夹内的目标文件

问题说明 #

当前使用Excel VBA仅能在指定主文件夹（示例为search文件夹）内搜索文件，输入关键词如1_manual可打开对应PDF，但无法搜索手动创建的多层子文件夹（如Hello_1）内的文件，现有代码无法满足递归搜索所有子目录的需求。

现有代码问题分析 #

1. 子文件夹遍历不彻底：原GetSubfolders函数仅获取一级子文件夹，未递归处理更深层级的嵌套目录。
2. file_itiran函数逻辑缺陷：
   • 初始文件匹配后直接存入数组，后续循环先执行Dir再递增索引，导致数组索引错位。
   • 使用vbDirectory参数会同时返回文件和文件夹，可能将文件夹路径误加入结果数组。
3. 数组未动态扩容：未处理数组容量不足的情况，易引发下标越界错误。

修正后的解决方案代码 #

Public Const NETWORK_PATH As String = "C:\Users\WS035\Desktop\search" ' 修正路径分隔符为单反斜杠
Public Const F_PATH20 As String = NETWORK_PATH

' 递归搜索文件核心函数，遍历所有层级子文件夹
Sub RecursiveFileSearch(folderPath As String, keyWord As String, ByRef fileList As Collection)
    Dim fso As Object
    Dim parentFolder As Object
    Dim subFolder As Object
    Dim file As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set parentFolder = fso.GetFolder(folderPath)
    
    ' 搜索当前文件夹内的匹配文件
    For Each file In parentFolder.Files
        If UCase(file.Name) Like UCase(keyWord & "*.*") Then
            fileList.Add file.Path
        End If
    Next file
    
    ' 递归遍历所有子文件夹
    For Each subFolder In parentFolder.SubFolders
        RecursiveFileSearch subFolder.Path, keyWord, fileList
    Next subFolder
End Sub

' 对外调用函数，返回匹配文件数量并填充结果数组
Function drawing_path1(hinban As String, f_name() As String) As Integer
    Dim fileList As New Collection
    Dim i As Integer
    
    ' 处理关键词：转大写并移除后缀（依赖sufficdel函数）
    hinban = UCase(sufficdel(hinban))
    
    ' 执行递归搜索
    RecursiveFileSearch F_PATH20, hinban, fileList
    
    ' 动态调整数组大小并填充结果
    If fileList.Count > 0 Then
        ReDim f_name(1 To fileList.Count)
        For i = 1 To fileList.Count
            f_name(i) = fileList(i)
        Next i
        drawing_path1 = fileList.Count
    Else
        ReDim f_name(0)
        drawing_path1 = 0
    End If
End Function

' 辅助函数：移除文件名后缀（若未实现可直接使用此版本）
Function sufficdel(fileName As String) As String
    Dim dotPos As Integer
    dotPos = InStrRev(fileName, ".")
    If dotPos > 0 Then
        sufficdel = Left(fileName, dotPos - 1)
    Else
        sufficdel = fileName
    End If
End Function

代码改进点说明 #

• 全层级递归遍历：RecursiveFileSearch自动遍历当前文件夹下的所有子目录，无论嵌套多少层。
• 精准文件匹配：仅遍历Files集合，避免混入文件夹路径，同时通过UCase实现大小写不敏感的模糊匹配。
• 动态数组处理：先用Collection临时存储结果，再根据实际匹配数量调整数组大小，彻底避免下标越界。
• 路径格式修正：将原代码中的双反斜杠\\改为标准单反斜杠\，确保路径解析正确。

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