六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

vba快速查找文件

Admin | 2013-3-26 10:36:47 | ReadNums | 4635 | 标签 六合开奖结果现场直播 | 打印本页
     

  通过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)

  注意哦,如上的后缀名那里,可自行修改而用之。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日