Office: Excel Zellen aus vielen Dateien auslesen inkl. Unterordner

Hallo zusammen,
ich bin VBA Anfänger und brauche eure Hilfe.

Ich habe mehrere Excel Dateien die alle gleich aufgebaut sind.

Diese Excel Dateien haben ca. 15 Reiter. Ich möchte nun bestimmte Zellen aus verschiedenen Reitern auslesen und nebeneinander in die Zeilen in eine Excel Datei in zwei Reiter schreiben (leider reicht ein Reiter von der Menge der auszulesenden Zellen nicht aus. In die erste und Zweite Spalte sollen Speicherort und Dateiname geschrieben werden, in die dritte Spalte das Änderungsdatum der jeweiligen Datei und die nachfolgenden Spalten eben die jeweiligen Werte aus den Zellen der Excel-Dateien (Es sollen ca 250 Zellen aus verschiedenen Reitern ausgelesen werden).

Ich habe einen Code geschrieben, der funktioniert, aber leider nicht bei Unterordnern. Jeder Versuch diesen Umzuschreiben ist fehlgeschlagen.


Gibt es irgendwo einen Codeschnipsel der das kann??

Falls nicht kann ich meinen Code auch mal posten, leider habe ich das Gefühl, dass dieser total unbrauchbar ist, da es mit Unterordnern so kompliziert zu sein scheint (zumindest wenn man Anfänger ist).


Ich danke euch schonmal vielmals für eure Hilfe.

:)

 

Hallo Bamu27*wink.gif*

Ein Beispiel
Das Makro Start wird gestartet!
Achte auf dessen Kommentare
Das auslesen und neu positionieren der Zellen musst du noch an der kommentierten stelle ergänzen!

Gruß Poltergeist *grins

Code:

 

Hallo Bamu27 *wink.gif*

3 Zeile
Pfad mit Backlash

10 Zeile
"" durch "" ersetzen

Gruß Poltergeist *biggrin.gif*

 

Hallo Bamu27

3 Zeile
Pfad mit Backlash

10 Zeile
"" mit Backlash ergänzen

Gruß Poltergeist

 

Danke dir für die Hilfe. Ich habe es immer mit FileSystemObject probiert aber es hat nie geklappt. Wie gesagt, bin noch Anfänger, was schon froh, dass ich es ohne Unterordner hinbekommen habe.

Also brauche ich nur folgenden Teil des Codes, wenn ich das richtig verstehe, oder?


Public Sub Start()
Dim vntFolders As Variant
Dim lngIndex As Long
vntFolders = Folderlist("J:Inst") 'Pfad anpassen
If IsArray(vntFolders) Then
For lngIndex = LBound(vntFolders) To UBound(vntFolders)
Dim DateiName As String
DateiName = Dir(vntFolders(lngIndex) & "*.xls") 'Endung anpassen
Do While DateiName ""
If ThisWorkbook.Name DateiName Then
Workbooks.Open Filename:=vntFolders(lngIndex) & "" & DateiName
'Dein Code zum auslesen der geöffneten Datei
Workbooks(DateiName).Close
End If
DateiName = Dir
Loop
Next
End If
End Sub

 

Hallo Bamu27 *wink.gif*

Codeschnipsel sind selten lauffähig!
Nutze den kommpletten Code,mit Beachtung der Kommentare!

Gruß Poltergeist

 

Was muss ich denn an die Stelle 'dein Code zum auslesen der Datei schreiben, wenn ich bspw. aus jedem Excel die Zelle B2 aus dem Reiter Tabelle2 in den Reiter Tabelle1 und die Spalte B schreibe der Excel schreiben möchte? Würde es so klappen:

Set ws = Workbooks.Open(vntFolders & DateiName)

ThisWorkbook.Sheets("Tabelle1").Cells(2,2)=ws.Cells(2,2).


Kann es gerade leider nicht testen, aber muss es morgen irgendwie hinkriegen.

Nochmal danke für die Hilfe.

 

Hallo Bamu27 *wink.gif*

Dann wäre das eine Variante zum einfügen an der Kommentierten stelle!

Code:

Gruß Poltergeist

 

HAbe es gerade mal getestet, klappt leider nicht. Es kommt keine Fehlermeldungen aber wird auch nichts in die Zellen geschrieben. Habe alles eingefügt, wie in den Kommentaren steht.

 

Hallo Bamu27 *wink.gif*

Hier eine Musterdatei,den Pfad anpassen!
B2 wird ausgelesen!

http://www.xup.in/dl,34041519/Musterdatei.xls/

Gruß Poltergeist

 

Warum nicht als Upload auf dieser Plattform, Poltergeist?
Ich für meinen Teil lade mir mit Sicherheit nichts von unbekannten Hostern herunter!

Gruß Ralf

 

Hallo RPP63neu *wink.gif*

Ich bin leider fast Blind(R 4%,L12% Sehkraft)

Tut mir leid wenn ich manchmal einiges übersehe *Smilie

Gruß Poltergeist

 

Hallo RPP63neu *wink.gif*

Jetzt aber *wink.gif*

Gruß Poltergeist

 

Jetzt klappt alles, vielen Dank für die tolle Hilfe :-)