返回目录:excel表格制作
你好,我是【最深沉的感情】,很高兴为你解答。excel vba调用windows API 快速查找所选择的文件excel选中文件名清单、自动从“a1"文件夹中查找相应的文件。ShellExecuteA,DataObject,Clipboard,find,SendKeysPrivate 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更多专业的科普知识,欢迎关注我。如果喜欢我的回答,也请给我赞或转发,你们的鼓励,是支持我写下去的动力,谢谢大家。