Cómo llamar a funciones API en Excel VBA para encontrar rápidamente nombres de archivos
Excel selecciona la lista de nombres de archivos y encuentra automáticamente el archivo correspondiente en la carpeta "a1".
ShellExecuteA, DataObject, Portapapeles, buscar, SendKeys
Función de declaración privada 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 prueba()
Selección.
Dim MyData As DataObject
Dim sTemp As String, s As String
Establecer MyData = Nuevo objeto de datos
MyData.GetFromClipboard
sTemp = MyData.GetText
s = Reemplazar( sTemp, vbCrLf, " ; ")
s = Reemplazar(s, vbTab, ";")
MyData.SetText (s)
MyData.GetText (s)SetText ( s )
MyData.PutInClipboard
ShellExecute 0&;, "find", Range("a1"), _
vbNullString, vbNullString, SW_SHOW
Application.Wait (Now TimeValue("0:00:02"))
SendKeys s amp "{ ENTER}"
End Sub