Ich habe vor einiger Zeit mal diesen Code bekommen. Der funktionierte auch ganz gut. Jetzt nach einiger Zeit brauchte ich den Code mal wieder und ich bekomme ihn es jetzt nicht mehr so richtig auf die reihe.
Mit dem Code möchte ich eine csv-Datei mit ca. 135000 Zeilen in mehrere Dateien mit max 65000 zeilen (um mit excel zu bearbeiten) teilen lassen.
(Spalten anzahl ca. 15)
Kann es auch daran liegen das die Datei zu groß ist?
======================
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
============================
mfg Martin