Office: Datei direkt aus unbekannten Unterordner öffnen

Hallo,

wie man sich alle Unterordner eines Verzeichnisses bzw. alle Dateien darin in einem Excelarbeitsblatt anzeigen lassen kann, weiß ich.

Auch mit dem Findebefehl kann ich ermitteln, dass die Datei vorhanden ist.

Als Parameter besitzte ich den Startpfad und den Dateinamen. Unklar ist, ob die Datei im Basisverzeichnis oder in einem Unterverzeichnis vorhanden ist.

Nun möchte ich diese im Anschluss an die erfolgreiche Suche mit Application.FileSearch auch gleich öffnen. Ich will nicht mehrere Dateien finden, da es immer nur eine geben sollte und ich möchte auch möglichst nicht den Umweg über das Auslesen von Dateien in eine Excelliste gehen.

Hat hier jemand eine Idee, wie man direkt nach Application.FileSearch ein Workbooks.Open mit dem passenden Pfad aus der erfolgreichen Suche anbringen könnte?

Danke für Hinweise.

:)

 

Hallo Freak33,

hast du es schonmal mit dem Parameter
Code:

probiert?

 

Ja selbstverständllich. Das Problem ist ja nicht die Datei zu finden, sondern Sie dann auch aufzurufen.

 

Moin, Freak33,

zur Zeit würde mir nur der Vorschlag in den Sinn kommen, die Eregbnisliste "abzuklappern" und auf Übereinstimmung mit dem gesuchten Thread zu prüfen und die "Eine" zu öffnen. Sicherlich wird man aber die Menge der gefundenen Dateien durch geeignete Suchkriterien einschränken können...

 

Ja, das wäre die von mir beschriebene umständlichere Notlösung. Also für mein Vorhaben hat uns MS nicht die nötigen Befehle mit auf den Weg gegeben, oder?

 

hiho

Code:

 

Moin, Freak33,

Ordner auslesen und den Dir-Befehl einsetzen, DOS-Befehle nutzen zum Erstellen einer Textdatei zur Auswertung...

 

Hallo,

Workbooks.Open (.FoundFiles(1))

war der Befehl den ich brauchte und die schnellste Lösung.

Danke für die Hilfen.