Wie kann ich mehrere Exceldateien in eine Datei schieben so das daraus mehrere Tabellenblätter entstehen?

Question

Ich habe aus einem anderen Programm Exceldateien erstellt, die vom Aufbau gleich sind und in einem Ordner lagern. Gerne würde ich alle Tabellenblätter in einer Datei haben.

Answer 1

hi all ^^

ein Beispiel

gruss nighty

pfad an 2 Positionen anpassen

Sub DateienLesen()
Call EventsOff
Dim DateiName As String
DateiName = Dir("E:\Temp\" & "*.xls")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName Then
Workbooks.Open Filename:="E:\Temp\" & DateiName
Workbooks(DateiName).Worksheets(1).Copy Before:=Workbooks(ThisWorkbook.Name).Worksheets(1)
ActiveSheet.Name = Mid(DateiName, 1, Len(DateiName) - 4)
Workbooks(DateiName).Close
End If
DateiName = Dir
Loop
Call EventsOn
End Sub

Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub