ich möchte mehrere csv dateien in eine Tabelle zusammenführen, was VBA betrifft bin ich ein Neuling. Ich hab zwar schon von anderer Stelle ein Stück CODE für meine Aufgabenstellung nutzen können doch würde ich diesen gerne anpassen.
Hier mal der Code:
Sub CSV_Import()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), local:=True
With ThisWorkbook.Sheets(1)
ActiveSheet.UsedRange.Copy Destination:=.Range("A" & lastrow)
lastrow = .UsedRange.Rows.Count + 1
End With
ActiveWorkbook.Close False
Next i
End If
End Sub
Mit dem Code kann ich aus einem Ordner mehrere Dateien ich eine Tabelle einfügen, jetzt ist es aber so das ich gerne erst ab Zeile 4 denn Inhalt kopieren möchte. So wie ich das Interpretiere wird mit UsedRange der komplett benutzte Bereich kopiert.Ich habe zwar schon einiges mit Select ausprobiert aber das hatte kein Erfolg gebracht. Wer kann mir hierbei helfen ?
Viele Grüße