Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion im Dateiexplorer
 27.03.2018 12:48:11 Mike
NotSolved
27.03.2018 12:51:35 Gast12802
NotSolved
27.03.2018 12:55:59 Gast66179
NotSolved
27.03.2018 15:42:37 Gast52444
NotSolved
27.03.2018 16:13:41 Gast82591
NotSolved
27.03.2018 16:17:43 Gast39644
NotSolved
27.03.2018 19:50:56 Mike
NotSolved
28.03.2018 13:03:47 Mike
NotSolved

Ansicht des Beitrags:
Von:
Mike		 Datum:
27.03.2018 12:48:11		 Views:
2214		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion im Dateiexplorer

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:

  1. den Pfad und den Testname als String aus dem Excel auszulesen.
  2. mittels Shell den Windows Explorer (mit dem richtigen Pfad) zu öffnen und eine im Suchfeld den String Testname einzufügen.
  3. 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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion im Dateiexplorer
 27.03.2018 12:48:11 Mike
NotSolved
27.03.2018 12:51:35 Gast12802
NotSolved
27.03.2018 12:55:59 Gast66179
NotSolved
27.03.2018 15:42:37 Gast52444
NotSolved
27.03.2018 16:13:41 Gast82591
NotSolved
27.03.2018 16:17:43 Gast39644
NotSolved
27.03.2018 19:50:56 Mike
NotSolved
28.03.2018 13:03:47 Mike
NotSolved