Red de conocimiento informático - Material del sitio web - Cómo llamar a funciones API en Excel VBA para encontrar rápidamente nombres de archivos

Cómo llamar a funciones API en Excel VBA para encontrar rápidamente nombres de archivos

Excel vba llama a la API de Windows para encontrar rápidamente el archivo seleccionado

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