如何用Excel VBA获取Windows资源管理器搜索结果的文件路径？

直接调用explorer.exe打开搜索窗口没法让VBA捕获结果，因为这是独立的GUI进程。下面提供两种程序化查询Windows搜索结果的VBA方案，不用依赖资源管理器窗口。

方法1：使用WMI查询文件（适合简单文件名匹配） #

WMI的CIM_DataFile类可以直接查询指定目录下的文件，支持通配符匹配：

Sub GetFilesViaWMI(ByVal strFilePath As String, ByVal strFileName As String)
    Dim objWMIService As Object
    Dim colFiles As Object
    Dim objFile As Object
    Dim strQuery As String
    
    ' 初始化WMI服务
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
    ' 构建查询：匹配指定目录下的文件名（支持*通配符）
    ' 注意路径要转义反斜杠为双反斜杠
    strQuery = "SELECT * FROM CIM_DataFile WHERE Path = '" & Replace(Right(strFilePath, Len(strFilePath) - 1), "\", "\\") & "' AND FileName LIKE '" & strFileName & "'"
    
    ' 执行查询
    Set colFiles = objWMIService.ExecQuery(strQuery)
    
    ' 遍历结果并输出路径
    For Each objFile In colFiles
        Debug.Print "找到文件：" & objFile.Name & "，路径：" & objFile.FileName & "\" & objFile.Extension
        ' 这里可以把路径存入数组或工作表
    Next
    
    Set objWMIService = Nothing
    Set colFiles = Nothing
End Sub

' 调用示例
Sub TestWMI()
    GetFilesViaWMI "C:\YourTargetFolder\", "test*" ' 搜索C盘目标文件夹下文件名以test开头的文件
End Sub

方法2：使用Windows Search OLE DB（支持复杂搜索，如内容/属性） #

如果需要更灵活的搜索（比如按文件内容、创建时间、文件类型等），可以直接连接Windows Search的OLE DB数据源：

Sub GetFilesViaWindowsSearch(ByVal strSearchPath As String, ByVal strQuery As String)
    Dim objConnection As Object
    Dim objRecordset As Object
    Dim strSQL As String
    
    ' 创建ADODB连接对象
    Set objConnection = CreateObject("ADODB.Connection")
    ' 连接Windows Search数据源
    objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
    
    ' 构建SQL查询：指定搜索目录，匹配关键词
    ' System.ItemPathDisplay 是文件的完整路径字段
    strSQL = "SELECT System.ItemPathDisplay FROM SystemIndex " & _
             "WHERE SCOPE='file:" & strSearchPath & "' " & _
             "AND FREETEXT('" & strQuery & "')"
    
    ' 执行查询
    Set objRecordset = objConnection.Execute(strSQL)
    
    ' 遍历结果
    Do Until objRecordset.EOF
        Debug.Print "文件路径：" & objRecordset("System.ItemPathDisplay").Value
        ' 可将结果写入工作表或变量
        objRecordset.MoveNext
    Loop
    
    ' 清理对象
    objRecordset.Close
    objConnection.Close
    Set objRecordset = Nothing
    Set objConnection = Nothing
End Sub

' 调用示例
Sub TestWindowsSearch()
    GetFilesViaWindowsSearch "C:\YourTargetFolder\", "报告" ' 搜索目标文件夹下含"报告"关键词的文件（文件名/内容都匹配）
End Sub

注意事项 #

• 方法1的WMI查询不支持文件内容搜索，仅匹配文件名和属性；
• 方法2需要确保Windows Search服务处于运行状态（默认是开启的）；
• 路径中的特殊字符需要注意转义，比如单引号要处理成两个单引号避免SQL语法错误。

内容的提问来源于stack exchange，提问作者Bảo Nhi