VBA Excel: csv Dateien splitten aufteilen

planb2000

Erfahrenes Mitglied
Hallo Alle,

falls jemand folgendes Problem haben sollte:
-- große csv datei in kleine pakete zu n Zeilen aufteilen
-- ich habe es gerade mit einer 3 GByte großen Datei geschafft

PHP:
 Sub CsvSplitter()
     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 "D:\Lumax 340 HF-T.csv" For Input As #1
 
     'wenn die Teildateien nicht auf "C:\" gespeichert werden sollen,
     'dann musst Du den entprechenden Pfad eintragen
     liZeiger = 1
     lstrDatName = "Lumax_340_HF_T-" & liZeiger & ".csv"
     Open "D:\" & 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 = "Lumax_340_HF_T-" & liZeiger & ".csv"
             Open "D:\" & lstrDatName For Output As #2
         End If
         Print #2, lstrZeile
         liZeile = liZeile + 1
     Loop
     Close
 End Sub

Kann man betimmt viel besser machen aber es hat mir gerade sehr geholfen.
Viele Grüße
 
Zurück