CSV Dateien ans Ende Importieren
12.10.2020 11:59:24
Elias
ich habe aktuell ein kleines Problem mit einem Makro, welcher mir CVS Dateien in eine aktuelle Tabelle importieren soll.
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
- Mehrere Dateien können ausgeählt werden
- Das ganze wird in eine bestehende Exceltabelle importiert
- Alle Werte stehen in eigenen Zellen
Das Problem ist, dass ich die CSV gerne am Ende meiner bereits bestehenden Tabelle einfügen möchte, derzeit das ganze aber einfach oben eingeschoben wird.
Könnte mir dabei jemand helfen ?
Grüße
Anzeige