在excel vba中如何调用api函数实现快速查找文件名

excel vba调用windows API 快速查找所选择的文件

excel选中悉氏文件名清单、自动从“a1"文件夹中查找相应的文件。

ShellExecuteA,DataObject,Clipboard,find,SendKeys

Private Declare Function ShellExecute Lib "shell32.dll" Alias _

"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _

String, ByVal lpszFile As String, ByVal lpszParams As String, _

ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Const SW_SHOW = 5

Sub test()

Selection.Copy

Dim MyData As DataObject

Dim sTemp As String, s As String

Set MyData = New DataObject

MyData.GetFromClipboard

sTemp = MyData.GetText

s = Replace(sTemp, vbCrLf, "")

s = Replace(s, vbTab, "")

MyData.SetText (s)

MyData.PutInClipboard

ShellExecute 0&, "find", Range("a1"笑型), _

vbNullString, vbNullString, SW_SHOW

Application.Wait (Now + TimeValue("0:00:02"睁升散))

SendKeys s &"{ENTER}"

End Sub

用API的方式丛早比Dir也快不了多少的，因为目前而言，电脑运行速度的最大瓶颈就是硬盘，不管CPU、主板、内存、显卡有多快，在执行文件 *** 作时都不得不慢下来等待硬盘，所以不管软件编得多好多努力，对速度的提升都不大的。就像几十万辆车要排队过一条小桥，一次只能过一辆，那么即使所有车都是法拉利、保时捷，通过小桥的速度也比几十万台拖拉机甚至牛车快不了多少的！乎郑毁关键是要拓宽桥的宽度岁备，或者多建几座桥，比如把机械硬盘换成固态硬盘，速度就会有明显提升的。

---