ich habe eine csv datei mit mehr als 65.536 Zeilen,
da excel da snicht automatisch in mehrere Tabellen aufteilt, muss wohl
vb herhalten.
Kann mir da jemand helfen ?
Sub readCSV()
Dim strTxt As String, lngI As Long, myarr
Open "n:\test\daten.csv" For Input As #1
lngI = 1
Do Until EOF(1)
Line Input #1, strTxt
myarr = Split(strTxt, ",")
Range(Cells(lngI, 1), Cells(lngI, UBound(myarr) + 1)) = myarr
lngI = lngI + 1
If lngI > 65536 Then
Sheets.Add after:=ActiveSheet
lngI = 1
End If
Loop
Close #1
End Sub