ich möchte gerne mehrere Excel-Tabellen von verschiedenen Excel-Dateien in ein gesondertes einzelnes Excel-Arbeitsblatt zusammenfügen. Die importierten Tabellen sollen dabei untereinander aufgelistet werden und einen gewissen Abstand zueinander haben (ein oder zwei Zeilen).
Der bisherige Code sieht wie folgt aus:
Sub Daten_einlesen()
' Daten_einlesen Makro
Dim strFile As String
strPath = "C:\....\" 'Pfad des Verzeichnisses, endet mit \
strExt = "*.xls"
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
.... hie müsste der Code weiter geführt werden
Workbooks(strFile).Close False ' Arbeitsmappe wird geschlossen
strFile = Dir() ' nächste Datei wird ermittelt
Loop
End If
End Sub
ich hoffe ihr könnt mir helfen :)viele Grüße
Rob