Hallo,
Ich versuche vergebens einen code zu schreiben welcher mir aus mehreren Excel files alle Blätter in ein master dokument kopiert.
Leider bleibe ich immer an folgendem Pukt hängen:
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Mein code bis dato ist folgender:
Sub GetSheets()
Dim Path As String
Dim Filename As String
Dim Sheet As Worksheet
Application.ScreenUpdating = False
Path = "H:\Listes\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
Application.ScreenUpdating = True
End Sub
Ich würde mich über eure Hilfe sehr freuen
Danke
|