Arbeitsmappen zusammenkopieren
06.06.2006 09:32:28
Durmus
In meinem folgenden Code geht es darum, einzelne XL-Arbeitsmappen (Dateien) eines Ordners in eines zusammenzukopieren. Dies klappt auch. Allerdings bräuchte ich Hilfe, da die Spaltenköpfe mitkopiert werden.
Wie könnte ich eine Ausgrenzung, z. B. Zeile 1+2, bei der Auswahl vornehmen?
Anbei der Code:
Sub Zusammenkopieren()
Dim TmpDatei As String, Pfad As String
Dim LRow1 As Integer, LRow2 As Integer
Dim wsMaster As Worksheet
Set wsMaster = ThisWorkbook.Sheets("Tabelle1")
einzeldateien = ActiveWorkbook.Path & "\" & "Einzeldateien" & "\"
ChDir einzeldateien
TmpDatei = Dir(einzeldateien & "*.xls")
Do While TmpDatei <> ""
LRow1 = wsMaster.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.Open TmpDatei
LRow2 = Workbooks(TmpDatei).Sheets("MA").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(TmpDatei).Sheets("MA").Rows("1:" & LRow2).Copy wsMaster.Cells(LRow1 + 1, 1)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
TmpDatei = Dir()
Loop
Application.ScreenUpdating = True
End Sub