在文件夹及子文件夹中搜索指定产品JPG文件名的VBA脚本问题

原脚本的问题 #

• 变量替换错误：直接将TargetAddress作为字符串嵌入路径，未实现变量拼接，导致路径无效
• 调用外部cmd dir效率低：依赖系统命令行进程，读取输出存在额外开销，处理大量文件时速度缓慢

改进后的VBA代码 #

使用VBA原生的FileSystemObject递归搜索文件，速度更快且稳定，支持动态变量替换，可完整遍历子文件夹：

Sub SearchProductJPGs()
    Dim fso As Object
    Dim rootFolder As Object
    Dim targetProduct As String
    Dim searchPath As String
    Dim outputRow As Long
    
    ' 初始化参数
    searchPath = "C:\Users\xxxx\Documents\" ' 替换为你的根搜索路径
    targetProduct = ActiveCell.Value ' 从活动单元格获取目标产品名
    outputRow = 1 ' 结果输出的起始行
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set rootFolder = fso.GetFolder(searchPath)
    
    ' 启动递归搜索
    RecursiveSearch rootFolder, targetProduct, outputRow
    
    ' 释放对象
    Set rootFolder = Nothing
    Set fso = Nothing
    
    MsgBox "搜索完成，共找到 " & outputRow - 1 & " 个匹配文件"
End Sub

Private Sub RecursiveSearch(folder As Object, productName As String, ByRef rowNum As Long)
    Dim file As Object
    Dim subFolder As Object
    
    ' 遍历当前文件夹内的文件
    For Each file In folder.Files
        ' 匹配以目标产品名开头的JPG文件（不区分大小写）
        If LCase(file.Name) Like LCase(productName & "*.jpg") Then
            Cells(rowNum, 1).Value = file.Path ' 输出完整路径，仅需文件名则改为file.Name
            rowNum = rowNum + 1
        End If
    Next file
    
    ' 递归遍历子文件夹
    For Each subFolder In folder.SubFolders
        RecursiveSearch subFolder, productName, rowNum
    Next subFolder
End Sub

使用说明 #

1. 将活动单元格选中包含目标产品名（如37004378_TM）的单元格
2. 修改代码中的searchPath为你的实际根文件夹路径
3. 运行SearchProductJPGs宏，匹配结果会从工作表第一行开始输出

优势 #

• 原生VBA实现，无需调用外部进程，速度显著提升
• 正确实现变量路径拼接，支持动态指定产品名
• 递归遍历所有子文件夹，确保无遗漏
• 可灵活选择输出完整路径或仅文件名（修改file.Path为file.Name即可）

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