Excel VBA纯数组实现递归搜索指定类型文件路径的技术咨询

嘿，完全懂你的需求！毕竟数组直接往Excel Range里写的效率确实比集合转数组要顺得多，而且你想搞懂纯数组实现递归搜索的逻辑，这思路特别好——我来给你拆解清楚，再上完整的VBA代码。

核心逻辑拆解 #

纯数组实现的难点在于VBA数组默认是固定大小的，不像集合可以动态添加元素。所以最优的思路是分两步走：

1. 先递归遍历所有文件夹，统计出目标类型文件的总数量
2. 根据统计结果初始化对应大小的数组
3. 再次递归遍历，把找到的文件路径逐个填充到数组里

这种方式避免了频繁扩容动态数组的性能损耗，同时完美适配你要快速写入Range的需求。

完整代码实现 #

1. 辅助函数：统计目标文件总数 #

这个函数负责递归遍历所有文件夹，数出符合扩展名要求的文件总量：

Function CountTargetFiles(ByVal folderPath As String, ByVal fileExtension As String) As Long
    Dim fso As Object
    Dim targetFolder As Object
    Dim subFolder As Object
    Dim file As Object
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set targetFolder = fso.GetFolder(folderPath)
    
    ' 统计当前文件夹下的目标文件
    For Each file In targetFolder.Files
        ' 统一转小写，避免大小写差异漏判（比如PDF和pdf）
        If LCase(fso.GetExtensionName(file.Path)) = LCase(fileExtension) Then
            CountTargetFiles = CountTargetFiles + 1
        End If
    Next file
    
    ' 递归统计子文件夹里的目标文件
    For Each subFolder In targetFolder.SubFolders
        CountTargetFiles = CountTargetFiles + CountTargetFiles(subFolder.Path, fileExtension)
    Next subFolder
End Function

2. 递归函数：填充文件路径到数组 #

这个函数会把找到的文件路径逐个填入数组，通过ByRef传递数组和当前索引，确保所有递归调用都操作同一个数组：

Sub PopulateFilePathsArray(ByVal folderPath As String, ByVal fileExtension As String, ByRef filePathArray As Variant, ByRef currentIndex As Long)
    Dim fso As Object
    Dim targetFolder As Object
    Dim subFolder As Object
    Dim file As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set targetFolder = fso.GetFolder(folderPath)
    
    ' 填充当前文件夹下的目标文件到数组
    For Each file In targetFolder.Files
        If LCase(fso.GetExtensionName(file.Path)) = LCase(fileExtension) Then
            currentIndex = currentIndex + 1
            filePathArray(currentIndex) = file.Path
        End If
    Next file
    
    ' 递归处理子文件夹
    For Each subFolder In targetFolder.SubFolders
        PopulateFilePathsArray subFolder.Path, fileExtension, filePathArray, currentIndex
    Next subFolder
End Sub

3. 主调用函数：整合流程并写入Excel #

这是你实际调用的入口，负责串联统计、数组初始化、填充和写入Range的全流程：

Sub GetAllTargetFilesToArray()
    Dim rootFolder As String
    Dim fileExt As String
    Dim totalFiles As Long
    Dim filePathArr As Variant
    Dim currentPos As Long
    
    ' --------------------------
    ' 这里改成你的目标文件夹和扩展名（不要带点）
    rootFolder = "C:\Your\Target\Folder\Path"
    fileExt = "pdf"
    ' --------------------------
    
    ' 第一步：统计总文件数
    totalFiles = CountTargetFiles(rootFolder, fileExt)
    
    If totalFiles = 0 Then
        MsgBox "没有找到指定类型的文件！"
        Exit Sub
    End If
    
    ' 第二步：初始化数组（用1-based索引，方便直接写入Excel）
    ReDim filePathArr(1 To totalFiles)
    currentPos = 0
    
    ' 第三步：填充数组
    PopulateFilePathsArray rootFolder, fileExt, filePathArr, currentPos
    
    ' 第四步：写入Excel Range（示例是Sheet1的A1开始）
    ThisWorkbook.Sheets("Sheet1").Range("A1").Resize(totalFiles, 1).Value = Application.Transpose(filePathArr)
End Sub

关键细节说明 #

• 为什么要先统计再初始化？：VBA里ReDim Preserve动态扩容数组时，每次都会复制原有数据，文件多的时候效率会很低。先统计总数再一次性初始化数组，能避免这个问题。
• ByRef的作用：递归函数里用ByRef传递数组和当前索引，保证所有递归调用都在同一个数组里写入，不会每次递归都新建数组。
• 大小写兼容：用LCase统一扩展名的大小写，确保不会漏掉大写扩展名的文件（比如.PDF）。

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