Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Schnelles Speichern in csv
Autor: Joe10
Datum: 05.09.10 15:31
Hallo VBler, ich muss mehrmals am Tag ca 8000 Zeilen aus einer Arbeitsmappe in eine csv Datei speichern. Zunächst Zeilen 1-8000 gegen 10 Uhr. Dann Zeilen 8001 bis 16200 gegen 12 Uhr usw. Ich habe das mit folgendem "SpeicherMakro" gelöst und arbeite viel mit Arrays. Die Frage ist ob ich das Speichern von der Performance noch steigern kann (ich habe einen interessanten Tipp zu einem etwas anderem Thema "Stringverkettung Optimiert" über Klassen gelesen)? Kann ich mein Speichermakro also noch "beschleunigen"? Vielleicht weiss jemand Rat und hat eine Idee? Public Sub csvExport() Dim lngLastRow As Long Dim lngLastColumn As Long Dim lngRowIndex As Long Dim lngColumnIndex As Long Dim wks As Worksheet Set wks = Worksheets("Tabelle1") lngLastRow = wks.UsedRange.Rows.Count lngLastColumn = wks.UsedRange.Columns.Count Open "C:\Daten.csv" For Append As #1 arAll = wks.Range("A1").Resize(lngLastRow, lngLastColumn) ReDim arZeile(1 To lngLastColumn) For lngRowIndex = 1 To lngLastRow For lngColumnIndex = 1 To lngLastColumn arZeile(lngColumnIndex) = arAll(lngRowIndex, lngColumnIndex) Next Print #1, Join(arZeile, ";") Next lngRowIndex Close #1 End Sub Viele Grüße Joe

Schnelles Speichern in csv	1.320	Joe10	05.09.10 15:31
Re: Schnelles Speichern in csv	787	effeff	07.09.10 19:01
Re: Schnelles Speichern in csv	760	Joe10	08.09.10 14:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen