Hallo Gemeinschaft,
ich habe mir das nachfolgende Makro zusammengebastelt um das Tabellenblatt1 aus allen im Pfad befindlichen Excel Dateien in eine Datei zu kopieren. Nun möchte ich alle Arbeitsblätter aus jeder datei auslesen, krieg es aber nicht hin. Kann mir jemand helfen?
[b]'Call EventsOff
Dim a As String
a = ThisWorkbook.Path & "\"
Range("A1").FormulaR1C1 = a
Dim DateiName As String
DateiName = Dir(Worksheets("Tabelle2").Range("A1") & "*.xls")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName Then
Workbooks.Open Filename:=Worksheets("Tabelle2").Range("A1") & DateiName
Workbooks(DateiName).Worksheets(1).Copy Before:=Workbooks(ThisWorkbook.Name).Worksheets(1)
'ActiveSheet.Name = DateiName
'Sheets(Worksheets.Count)
ActiveSheet.Name = Mid(DateiName, 1, 28)
Workbooks(DateiName).Close
End If
DateiName = Dir
Loop
'Call EventsOn
End Sub
danke im Voraus wim