Option
Explicit
Sub
Dateien_Zusammen()
Dim
fso
As
Object
Dim
baum
As
Object
Dim
zweige
As
Object
Dim
unterordner
As
Object
Dim
ziel
As
Object
Dim
pfad
As
String
Dim
temp
As
String
Dim
quelle
As
Object
Dim
i
As
Long
pfad =
"C:\Users\Desktop\test"
Set
ziel = ThisWorkbook
Set
fso = CreateObject(
"Scripting.FileSystemObject"
)
Set
baum = fso.GetFolder(pfad)
Set
zweige = baum.subfolders
For
Each
unterordner
In
zweige
temp = unterordner.Path &
"\" & "
GKW.xls"
If
fso.fileexists(temp)
Then
Workbooks.Open (temp)
Set
quelle = ActiveWorkbook
If
quelle.Worksheets.Count = 4
Then
For
i = 1
To
4
Next
i
End
If
quelle.Close
End
If
Next
unterordner
End
Sub