csv Datei alle 65000 Zeilen teilen

Sub Aufteilen()
Dim liZeile As Long, lstrDatName As String, lstrZeile As String, liZeiger As Integer
liZeiger = 1
liZeile = 1
lstrDatName = "XXXXX" & liZeiger & ".csv"
'für "c:\csv-datei.txt" musst Du DEN Speicherpfad und Dateinamen Deiner CSV-Datei eintragen
Open "C:\Dokumente und Einstellungen\Desktop\XXXXX.csv" For Input As #1
'wenn die Teildateien nicht auf "C:\" gespeichert werden sollen, dann musst Du den entprechenden Pfad eintragen
Open "C:\Dokumente und Einstellungen\Desktop\" & lstrDatName For Append As #2
Do While Not EOF(1)
Line Input #1, lstrZeile
If liZeile <= 65000 Then
Print #2, lstrZeile
liZeile = liZeile + 1
Else
Close #2
liZeile = 1
liZeiger = liZeiger + 1
lstrDatName = "XXXXX-" & liZeiger & ".csv"
Open "C:\Dokumente und Einstellungen\Desktop\" & lstrDatName For Append As #2
Print #2, lstrZeile
liZeile = liZeile + 1
End If
Loop
Close
End Sub