CSV Dateien in eine Tabelle zusammenführen
06.03.2017 13:22:06
Flexy
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
Ich habe zwar schon einiges mit Select ausprobiert aber das hatte kein Erfolg gebracht. Wer kann mir hierbei helfen ?
Viele Grüße
Anzeige