CSV-Dateien aus Liste importieren
21.05.2021 11:19:47
Timo
mit folgendem VBA Code importiere ich sämtliche CSV-Dateien aus einem Ordner.
Sub Daten_importieren()
Dim Pfad As String
Dim sFile As String, wkb As Workbook
On Error Resume Next
Pfad = ThisWorkbook.Worksheets("Einstellungen").Range("B5").Value
On Error GoTo 0
If Pfad "" Then
sFile = Dir(Pfad & "*.csv")
Do While sFile ""
Set wkb = Workbooks.Open(Pfad & sFile)
wkb.Sheets(1).Range("A1:I20").Copy _
ThisWorkbook.Worksheets("Import").Cells(Rows.Count, 1).End(xlUp).Offset(1)
wkb.Close False
sFile = Dir
Loop
End If
End Sub
Daher Liste ich sämtliche Dateien im Tabellenblatt "Importdaten" in Spalte "A" untereinander auf, die importiert werden sollen.
Z.B:
A
20210407.csv
20210409.csv
20210412.csv
20210503.csv
Leider bekomme ich das nicht hin, dass nur diese Dateien importiert werden.
Es müsste also die komplette Spalte "A" abgearbeitet werden.
Über Hilfe wäre ich euch sehr dankbar. :)
Viele Grüße
Timo
Anzeige