Excel中調用windows search來查找文件

jack5d

很多人在EXCEL中做連結來連接其他EXCEL文件，這是在已知路徑情況下可使用超連結功能即可。
有的情況是只知道文件名稱，不知道路徑，那也可使用VBA來寫出全盤搜索。
但時如果要查找文件內容，即類似Window Search的全文搜索，只靠vba內置的項目未能做到。
在網上找了些資料，知道VBA可調用Windows search的shell32.dll搜索引擎後試了一下。
雖未能做到〔所想即所得〕但也未免算是暫時可使用的解決方案～

使用情況：
做生產的經常是以訂單的單號查找文件，如果文件名字即為單號當然是沒有問題。
但如果文件名字不是訂單號，那麼要查找某一文件中的一個單號，或某一產品就非常吃力，而且往往要找的文件多達千份。
使用VISTA或WIN7的WINDOWS已經提供了內置WINDOWS SEARCH解決問題，但未安裝WINDOWS SEARCH的XP版本下就可
使用以上方法。（XP＿SP1及SP2）
相信還停留在XPSP1或2的人很少，但也是存在的，就當作給他們一個解決方案吧。
不過要做全文搜索建議還是快就升SP3後安裝windows search 4.0吧

liucqa

Option Explicit

Private Declare Function ShellSearch& Lib "shell32.dll" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long)
        
Private Const SW_SHOWNORMAL = 1


Sub ShowWindowsSearchDialog_API()
    Application.ScreenUpdating = False

    Const szSDrive As String = "C:\"
   
    ShellSearch 0, "find", szSDrive, "", "", SW_SHOWNORMAL
   
    Application.Wait (Now + TimeValue("0:00:01"))

    SendKeys "TEST" & " & " & "*xls" & "{ENTER}"
   
    Application.ScreenUpdating = True
End Sub

支持一下，谢谢分享  

nopeople110

正好在写一个 查找文件 过滤 转移文件夹的程序 参考你的。谢谢

bailanhong

O(∩_∩)O谢谢

liweikundrag

多谢分享，字数字数

29447961

在此基础上，如何获得搜索后的结果呢？