Office: (Office 2013) Ordner durchsuchen und xlsx auflisten

Hallo, ich habe gerade ein Problem, bei dem ich nicht weiterkomme.

Es geht darum:
Ich habe einen Hauptordner "Aktuell",
darin mehrere Unterordner für einzelne Bauprojekte, z.B."16001 Projekt Meier" und so weiter
in jedem Unterordner befindet sich genau eine Exceldatei (aber auch pdfs oder jpgs)

Ich muss jetzt in einer Tabelle, alle in den Unterordnern befindlichen Exceldateien auflisten.
So das die einzelne Exceldatei wieder aufgerufen werden kann, also der gesamte Pfad wir benötigt
Und genial wäre, wenn man aus den Exceldateien auch Werte aus einzelnen Zellen auslesen könnte.

Ich habe schon einige Codes probiert, die aber meist eine Unterordnerstruktur nicht miteinbeziehen.
Auch ist das sicher schon viel verlang hier so ne komplexe Sache anzufragen aber vieleicht kann ja jemand helfen.
Danke im Voraus

:)

 

Hi,

eine Möglichkeit:

Code:

 

Hallo Beverly
ich bekomme an dieser Stelle

Set Ordner = fso.getfolder(varSuchordner)

eine Fehlermeldung

den Pfad habe ich angepasst

 

Hi,

und welche Fehlermeldung bekommst du - also was sagt der Debugger genau?

 

Code:

 

Hi,

könnte es ein, dass der "\" am Ende bei der Ordner-Definition bei dir fehlt?

 

Beverly- trotz zigfachem hinsehen hatte ich einen Schreibfehler drin*tongue.gif*
Jetzt keine Fehlermelung mehr - aber es zeigt sich auch kein Ergebnis
ich kann also keine weitere Rückmeldung dazu geben

werde jetzt den anderen Code testen.

 

Den Hinweis in meinem Code zum Anpassen des Dateityps hast du beachtet?

 

Beverly, ja hatte ich beachtet... ich vermute das an anderer Stelle etwas bei mir nicht so angepasst ist wie es sein müsste...

Der Code von XLPH passt genau. Listet die Dateien der Unterordnern auf und übernimmt auch Daten aus einzelnen Zellen.

Dazu eine Beobachtung:
Die Function getWorkbookCellData überträgt ja einen Zellwert aus den einzelnen Dateien in die Auflistung.
Ich habe den Code nun erweitert um noch weitere Zellwerte zu übertragen.
Gleichzeitig habe ich weitere Unterordner angelegt.
Und nun zeigt sich, dass ein durchlauf des Codes deutlich langsam wird.

Kürze ich den Code und mache nur die Pfadauflistung, geht das rasend schnell.

Für den Teil der Zelldaten muss ich noch was anderes überlegen.

Bis hierher erstmal unendlich Dank
Wenn ihr noch Lust habt mitzudenken gerne

 

Hier mal eine Code-Variante, die kein Scripting-Objekt sondern normales Dir benutzt, um Dateien in Verzeichnissen aufzulisten.
Zum Anzeigen der Daten habe ich XLPH's Vorschlag übernommen. Code:

 

Hallo haklesoft, auch dieser Code läuft. Aber auch hier Pfadauflistung ist superschnell. Datenübername deutlich langsam.

Gibt es Vor und Nachteile zwischen Deiner und xlph's Methode?
LG

 

getWorkbookCellData()

ist nur ein Besipiel. Hier wird wegen einer auszulesenden Zelle die Datei
geöffnet und wieder geschlossen - ein Unding.

Aber du hast auch nicht geschrieben aus welchen Blättern welche Zellen übernommen werden sollen.

Deinen Code sehe ich auch nicht.

Fazit: Hast Pech, leb damit!

 

Hallo Karsten,

das ist wohl eher eine Frage des persönlichen Stils, da beide Methoden die gesuchten Dateien im Pfadbaum auflisten.
Der Code mit Dir basiert auf konventionellem VB und braucht keinen Objektverweis.
Das FileScriptingObjekt ist später hinzugekommen, also moderner.

 

Wie der Name 'FileSystemObject' schon sagt, werden Dateien und Ordner
als Objekte zur Verfügung gestellt. Mit deren Methoden und Eigenschaften
kannst du je nach Zugriffsrecht Dateien und Ordner bearbeiten.

Bsp. File-Objekt (in meinem Bsp fi)

Methoden:
Copy-Methode
Delete-Methode
Move-Methode

Eigenschaften:
Attributes-Eigenschaft
DateCreated-Eigenschaft
DateLastAccessed-Eigenschaft
DateLastModified-Eigenschaft
Drive-Eigenschaft
Name-Eigenschaft
ParentFolder-Eigenschaft
Path-Eigenschaft
ShortName-Eigenschaft
ShortPath-Eigenschaft
Size-Eigenschaft
Type-Eigenschaft

...also im Grunde genau das was du brauchst und viel mehr, weil genau dafür ausgelegt.

Dir() greift nur lesend und ist vergleichbar nur ein Bruchteil vom FileSystemObjekt. Was jetzt schneller ist, müsste man testen.
Aber beide sind im Vergleich zur API sehr langsam.

Für deine Bedürfnisse langt FSO...odre sind es über 100e Odrener mit 1000en von Dateien?

 

Insgesamt geht es um die Verwaltung aktueller Projekte in einem Handwerksbetrieb.
Es geht max um 100Ordner

Darin je 1 Exceldatei z.B."16001.xls" (in den anderen Ordnern dann 16002 usw.)
In Tabelle1 jeder Datei befindet sich dann z.B....
...in Zelle A1 der Projektname
in Zelle A2 die bisher verbrauchten Stunden
in Zelle A3 das bisher verbrauchte Material
usw.

Wie könnte die Datenübernahme ohn öffnen gemacht werden.
Darf ich dazu nochmal um Hilfestellung bitten?