Office: Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen

Guten Tag Zusammen,

ich habe ein "Master" Dokument und dieses Master Dokument füllt bestimmte Zellen mit Informationen aus anderen Dokumenten. Hab das auch implementiert und funktioniert super. ()

Nur müssen diese Dokumente die ich öffne in vorher festgelegten Ordnern sein und ich muss die Dateinamen genau definieren.

Ich möchte aber im Excel Sheet eine Liste an möglichen Ordnernamen erstellen, die dann rekursiv durchlaufen werden und alle Excel Dokumente die dort vorhanden sind geöffnet, Information herausgeholt (das mache ich) und geschlossen werden.

Vielleicht mal bessere Darstellung:

Erlaubte Ordnernamen: (steht im Masterdokument)
Ordner Anton
Ordner Berta
Ordner Caesar


Tatsächlich ist im Ordner Anton nochmal ein Ordner Berta drin und dadrin ist wieder ein Ordner Anton. Jetzt soll der Skript bis zum letzten Ordner reingehen und alle Excel Dokumente wie Sie auch heißen öffnen, eine kleine Prozedur ausführen(das übernehme ich) und dann das Dokument wieder schließen.

Freue mich auf Eure Vorschläge,

Beste Grüße

Thomas

:)

 

Hallo Thomas,

so wie ich das lese kennst Du Dich Klasse in VBA aus. Dann dürfte das ein Ansatz sein.

http://hajo-excel.de/chCounter3/getfile.php?id=21

 

Erstmal habe ich meine Kentnisse in VBA dank dieses Forums erweitern können, muss man mal sagen!

Dein Skript sieht schonmal KLASSE aus. Ich habe schon einen Ansatz wie ich damit arbeiten könnte, allerdings würde ich gerne wissen wie ich eine spezielle IF Bedingung machen kann, nach dem Schema:

If FD.Name = [ALLE Strings in den Zellbereichen A2 bis A10 kommen in Betrach] Then

[...]
Ich möchte ja bestimmte Ordner ausschließen und in den Zellbereichen A2 bis A10 möchte ich nur die Namen der Ordner angeben die durchlaufen werden sollen.


Konkret geht's um folgende Stelle:

Code:

 

in Deinem ersten Beitrag hat sich das so gelesen als wenn Du eine Liste hast mit Ordnernamen und die sollen alle durchgegangen werden, jetzt liest sich das wieder so als ob einige nicht durchgangen werden solle. Ich würde das nicht Hart im Code programmieren, sondern die Tabelle dazu benutzen.

 

Mein Problem ist, dass ich die Ordnerstruktur die ich durchlaufen werde nicht immer kenne, deshalb will ich von vornerein die Ordnernamen die "ok" sind vorgeben und alle Ordner die dem Namensschema nicht passen sollen nicht durchlaufen werden.

Ich dachte aus Performance-Gründen wäre es besser wenn ich es "hart" in den Code reinschreibe welche Ordner nur durchlaufen werden sollen.
Dafür muss ich wissen wie ich die eine IF Bedingung machen kann.


Die andere Lösung wäre dann erstmal eine komplette Dateiliste & Ordnerliste zu erstellen mit dem Skript (unverändert) und später die Liste Zeile pro Zeile durchzugehen und zu gucken ob in dem langen String ein Ordnername auftaucht die "ok" ist (dafür bräuchte ich auch diese eine spezielle IF Bedingung). Aber wie gesagt, bei dieser Möglichkeit macht man doppelte Arbeit, es wäre von vornherein besser dachte ich mir, wenn ich nur Ordner und somit Dateien in die Liste aufnehme die in "betracht" kommen.

 

Wahrscheinlich muss ich das mit einer For Schleife machen...Ich probiere es mal..

 

Hallo

Habe ich das richtig verstanden:
Du hast Ordnernamen in er Liste:
Tabelle1

	A
1	Anton
2	Berta
3	Caesar

Excel Tabellen im Web darstellen >>

 

Hallo ransi,

lieben Dank ,ich habe mittlerweile mein Problem gelöst.

In dem Verzeichnis wo das Dokument ausgeführt wird gab es Verzeichnisse (Anton/Berta/Caesar/Dora etc) die wiederum KÖNNEN weitere Verzeichnisse mit Anton/Berta/Caesar etc enthalten. Also die Ordnertiefe kann sehr lang sein.

Jetzt wollte ich nur bestimmte Ordner rekursiv durchlaufen, zb Berta und Caesar.

Und die die ich durchlaufen wollte, wollte ich bequem per Tabelleneingabe festlegen, die Informationen dazu waren in den Zellen A1-A28.

Mittlerweile habe ich eine For Schleife gebaut, die einfach die Zellen durchgeht und wenn da ein Ordnername steht, diesen Ordner auch durchsucht.

*Smilie