Hallo Leute,
Bin neu hier im Forum und ich hoffe, dass ihr mir weiterhelfen könnt.
Ich habe mit folgendes Skript geschrieben:
Ziel des VBA Skripts:
-
den Pfad und den Testname als String aus dem Excel auszulesen.
-
mittels Shell den Windows Explorer (mit dem richtigen Pfad) zu öffnen und eine im Suchfeld den String Testname einzufügen.
-
suche nach String starten
Das funktioniert eigentlich ganz gut soweit.
Habe nur ein Problem:
Wenn ich als Pfad in Zelle B1 folgedes eingegebe funktioniert das Skript einwandfrei:
Pfad = "D:\"
jedoch wenn ich einen Unterordner auswähle z.B.
D:\Projects\ .... dann bekomme ich eine Fehlermeldung:
"Fehler explorer.exe: Windows connot find ". Make sure you typed the name correctly, and then try again"
lg
Michael
Sub Button1_Click()
Dim Pfad As String
Dim Test As String
Pfad = Range("B1").Value
Testname = Range("B2").Value
Call Shell("explorer.exe " & Chr(34) & "search-ms:query=" & Testname & " &crumb=location:" & Pfad & "" & Chr(34), vbNormalFocus)
Exit Sub
|