csv Datei alle 65000 Zeilen teilen

Hallo!
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Aufteilen2() Dim liZeile As Long, lstrDatName As String, lstrZeile As String, liZeiger As Integer 'für "c:\csv-datei.txt" musst Du 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 liZeiger = 1 lstrDatName = "XXXXX-" & liZeiger & ".csv" Open "C:\Dokumente und Einstellungen\Desktop\" & lstrDatName For Output As #2 Do While Not EOF(1) Line Input #1, lstrZeile If liZeile >= 65000 Then Close #2 liZeiger = liZeiger + 1 liZeile = 0 lstrDatName = "XXXXX-" & liZeiger & ".csv" Open "C:\Dokumente und Einstellungen\Desktop\" & lstrDatName For Output As #2 End If Print #2, lstrZeile liZeile = liZeile + 1 Loop Close End Sub

Option Explicit Sub Schreiben() Dim n Close Open "c:\test\riesig.txt" For Output As #1 For n = 1 To 200000 Print #1, n Next n Close End Sub Sub Lesen() Dim n, Satz, spa Application.ScreenUpdating = False Close Open "c:\test\riesig.txt" For Input As #1 While Not EOF(1) n = n + 1 Input #1, Satz If n = 65537 Then n = 1 spa = spa + 1 End If Cells(n, spa + 1) = Satz Wend Close Application.ScreenUpdating = True End Sub

Ich bin mir eigendlich schon sicher!
Ich glaube das hängt alles mit dem zu großen Speicherverbrauch bei diesen Aktionen ab.
Mit kleineren Dateien klappt es einwandfrei. Meine Datei ist 160 mb groß!
Sie besteht aus 11 Spalten, hab aber auch versucht diese Datei mit nur 3 Spalten zu teilen. da ging es auch nicht.
Andersrum habe ich schon mal dateinen (allerdings dat-Dateien und keine csv) mit weit über 500.000 Zeilen geteilt. Da ging es auch! Aber die Dateien waren trotz der vielen Zeilen nicht so "schwer"!
ich habe einen Laptop mit 256 mb Arbeitsspeicher und der Virtuelle Speicher geht bei den Dateien schnell auf 600 mb und mehr! Dann wird er sehr langsam!
Ich denke das es daran liegt!
mfg Martin

Beliebteste Forumthreads (12 Monate)

csv Datei alle 65000 Zeilen teilen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

csv Datei alle 65000 Zeilen teilen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread