Hallo zusammen,
googlen hat mir nicht weitergeholfen.
Ich habe ein Verzeichnis.Darin liegen 10 Ordner. In jedem dieser Ordner sind 12 Excel-Dateien.
Ich möchte jede Excel-Datei ansteuern, d.h. ein Ordner rein, alle Daten abarbeiten und nächster Ordner
Mit meinem Code schaffe ich es bis jetzt einen Ordner mit seinen 12 Dateien anzuwählen.
Ich muss darum nochmal eine Schleife ziehen, damit dieser Vorgang für alle Ordner erfüllt wird.
Sub Test()
Dim quelle As Workbook
Dim strOrdnerName As String
Dim strName As String
Dim strOrdnerName2 As String
Dim strName2 As String
*ÄUßERE SCHLEIFE
strOrdnerName2 = "C:\daten\Verzeichnis\"
strName2 = Dir(strOrdnerName & "Ordner*")
Do While strName2 <> ""
*INNERE SCHLEIFE
strOrdnerName = "C:\daten\Verzeichnis\Ordner\"
strName = Dir(strOrdnerName & "Monat*")
Do While strName <> ""
Set quelle = Workbooks.Open(strName)
...Anweisungen...
quelle.Close
strName = Dir
Loop
strName2 = Dir
Loop
End Sub
Das Fett markierte funktioniert so nicht. Es wird kein Ordner gefunden und abgebrochen.
Ich hoffe mir kann jemand weiterhelfen.
Danke im Voraus.
|