Import einer .csv-Datei

Sub ImportCsvFiles()
Dim strFile As String
Dim k As Integer
Dim strLine As String
Dim intRow As Integer
k = 1
Do While True
strFile = Trim(ActiveWorkbook.Worksheets("Tabelle2").Cells(k, 2))
k = k + 1
Debug.Print "read: " & strFile
If strFile = "" Then
Exit Do
Else
Open strFile For Input As #1
intRow = 1
Do While Not EOF(1)
Line Input #1, strLine
Debug.Print strLine
If intRow > 2 Then
ActiveWorkbook.Worksheets("Tabelle3").Cells(intRow, 1) = CDate(GetToken(1, ";",  _
strLine))
ActiveWorkbook.Worksheets("Tabelle3").Cells(intRow, 2) = GetToken(2, ";", strLine)
End If
intRow = intRow + 1
Loop
Close #1
End If
Loop
End Sub

Open strFile For Input As #1