vba快速查找文件

Admin | 2013-3-26 10:36:47 | 被阅次数 | 9227

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　通过VBA来查找文件，从理论上和现实上来讲，速度都不怎么快，再快也没有系统找得快。如果你想在VBA环境下快速查找文件，那就只有通过VBA调用API函数来实现了，下面是与之相关的代码，希望对你有所帮助。

　　①对API先进行定义

　　Declare Function SearchPath Lib "kernel32.dll" Alias "SearchPathA" _
　　(ByVal lpPath As String, ByVal lpFileName As String, _
　　ByVal lpExtension As String, ByVal nBufferLength As Long, _
　　ByVal lpBuffer As String, lpFilePart As Long) As Long

　　②调用函数实现快速查找

　　Dim FileName As String
　　Dim Extention As String
　　Dim FoundFilePath As String * 516
　　Dim FileNamePart As Long
　　Dim iRet As Long

       ' 文件名
        FileName = "UNLHA32"

　　' 后缀
       Extention = ".ppt"

　　' 文件搜索
　　iRet = _
        SearchPath(vbNullString, FileName, Extention, _
        Len(FoundFilePath), FoundFilePath, FileNamePart)
　　 ' 表示路径和文件名
　　Range("A1") = Left(FoundFilePath, InStr(FoundFilePath, vbNullChar) - 1)