Unterordner per Makrosuche einbinden
05.08.2014 07:55:37
Stefan
Derzeitig beschäftige ich mich mit folgendem Problem, bei dem ich kurz eure Hilfe bräuchte.
Ich möchte per Makro, Dateien in einem Ordner bzw. in dessen Unterordnern einmal öffnen, aktualisieren und anschließend wieder schließen lassen.
Für die folgende Struktur habe ich beireits ein passendes und funktionierendes Makro gefunden:
Suchordner der in der Pfadangabe angegeben wird--> 12 Unterordner in denen jeweils 2 Excel Dateien liegen:
Sub test5()
Const sSourcePath As String = "C:...Pfadangabe"
Dim fld, file
Dim fso As Object
Dim objFld As Object
Dim objSubFld As Object
Dim objFiles As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFld = fso.GetFolder(sSourcePath)
Set objSubFld = objFld.SubFolders
For Each fld In objSubFld
Set objFiles = fld.Files
For Each file In objFiles
Application.Workbooks.Open (file.Path)
ActiveWorkbook.Close savechanges:=True
Next
Next
End Sub
Wie muss ich jetzt dieses Makro ändern, wenn in den Unterordnern eine weitere
Untergliederung in Ordner vorkommt?
Also Quasi: Suchordner der in der Pfadangabe angegeben wird -> 12 Unterordner -> wieder 10-12 _
Unterordner in denen nun die Excel Dateien liegen.
Hoffe ich konnte mein Problem halbwegs verständlich Beschreiben.
Vielen Dank schon einmal im Voraus!
Grüße
Stefan