|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
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
支持一下,谢谢分享
|
|