Hallo Oliver,
ich hoffe, es macht nichts, wenn ich mich mit meiner Frage an diesen Eintrag "anhänge". Ich habe nämlich ein ähnliches Problem. Bisher lese ich bestimmte Inhalte von xls-files, die in einem bestimmten Ordner stehen, folgendermaßen aus:
Dim Datei$
Dim lngrow As Long
Datei = Dir(strPath & "\*.xls")
Do While Datei <> ""
On Error Resume Next
If Right(Datei, 4) = ".xls" And IsNumeric(Left(Datei, 2)) Then
lngrow = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(lngrow, 3) = Datei
ActiveSheet.Cells(lngrow, 6).FormulaLocal = "='" & strPath & "\[" & Datei & "]Testfälle'!$G$1"
ActiveSheet.Cells(lngrow, 7).FormulaLocal = "='" & strPath & "\[" & Datei & "]Testfälle'!$O$3"
ActiveSheet.Cells(lngrow, 8).FormulaLocal = "='" & strPath & "\[" & Datei & "]Testfälle'!$G$2"
End If
Datei = Dir()
Loop
On Error GoTo 0
Meine 2 Fragen hierzu:
1. Wie kann ich einen gesamten Ordner inklusive aller Unterordner durchsuchen (die Anzahl und Namen der Unterordner variieren mit der Zeit)?
2. Wie ziehe ich mir aus allen gefundenen xls-files den jeweils gleichen Bereich (z.B. A1:H200) - wenn möglich, ohne die Dateien alle hintereinander zu öffnen, sondern eher so, wie ich es bisher in o.a. Code mache?
Vielen Dank für die Hilfe, Gruß
Jojo