title image


Smiley Re: Excel Datei zu gross...
Hallo,

wenn es Excel ist, solltest Du sie auch mit Excel wieder öffnen können.

Schliesse orher alle anderen Anwendungen, wenn Dein PC etwas schwächelt.

Oder ist es eine Text - (bzw. csv) datei mit mehr als 65536 Zeilen ?



Eine text bzw. csv datei kannst Du mit folgendem Makro in kleinere Portionen

aufteilen:



Option Explicit



Private Const PFAD_EINGABE = "g:\test\test_in.csv" 'pfad.datei.endung DEINER Datei

Private Const PFAD_AUSGABE = "g:\test\testout" 'pfad.DATEI.ohne ENDUNG

Private Const zeilenzahl= 65000 'maximale Anzahl Zeilen pro Portion



Sub ein_auslesen()



Dim fs, csv_datei_eingabe, csv_datei_ausgabe, tmp$, i&, j&,

On Error Resume Next

Set fs = CreateObject("scripting.filesystemobject")

Set csv_datei_ausgabe = fs.CreateTextFile(PFAD_AUSGABE & j & ".csv", overwrite:=True)

Set csv_datei_eingabe = fs.OpenTextFile(PFAD_EINGABE, 1)



With csv_datei_eingabe

Do While Not .AtEndOfStream

tmp = .ReadLine

DoEvents

i = i + 1

csv_datei_ausgabe.WriteLine tmp

If i >= zeilenzahl Then

j = j + 1

csv_datei_ausgabe.Close

Set csv_datei_ausgabe = fs.CreateTextFile(PFAD_AUSGABE & j & ".csv", overwrite:=True)

i = 1

End If

Loop

.Close

End With

csv_datei_ausgabe.Close

Set fs = Nothing

Set csv_datei_eingabe = Nothing

Set csv_datei_ausgabe = Nothing

End Sub





Das Makro öffnet Deine grosse Datei,

Private Const PFAD_EINGABE = "g:\test\test_in.csv" 'pfad.datei.endung DEINER Datei



Schreibt Private Const zeilenzahl= 65000 'maximale Anzahl Zeilen pro Portion

in

Private Const PFAD_AUSGABE = "g:\test\testout0.csv

und die nächste Portion nach "g:\test\testout1.csv usw.

Statt 65000 kannst Du natürlich jeden Wert angeben, z.B. 6000 erstellt aus 65000 Zeilen dann 10 Dateien a 6000 Zeilen und 1 Datei mit 5000 Zeilen












Viele Grüße aus Langen (Hessen),
           "Quinoman"
Michael


Bei Lösungsvorschlägen bitte das Feedback nicht vergessen. Ich (und oft auch andere) möchte gerne wissen, ob etwas geholfen/geklappt hat.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: