Hallo zusammen,
mit folgendem makro kann ich Daten aus vielen Dateien in einer zusammenfügen, aber es entsteht für jede Datei ein neues Tabellenblatt.
Sub test()
Dim strFile As String, strPath As String, wb As Workbook
strPath = "D:\Test\"
strFile = Dir(strPath & "*.xls")
Do Until strFile = ""
Set wb = Workbooks.Open(strPath & strFile)
With ThisWorkbook
wb.Sheets(1).Copy after:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = Left(strFile, InStrRev(strFile, ".") - 1)
End With
wb.Close False
strFile = Dir$
Loop
End Sub
Ich möchte aber, das die Daten immer unten in die erste freie Zelle in Spalte A eingefügt wird. habs wie folgt probiert:
Sub test()
Dim strFile As String, strPath As String, wb As Workbook
strPath = "C:\Users\Boris\Documents\frank\"
strFile = Dir(strPath & "*.xls")
Do Until strFile = ""
Set wb = Workbooks.Open(strPath & strFile)
With ThisWorkbook
wb.Sheets(1).Copy Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End With
wb.Close False
strFile = Dir$
Loop
End Sub
bekomme hier aber den Laufzeit-Fehler(1004):
Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Kann mir jemand helfen?
Vielen Dank für Eure Mühe |