Datenexport mit beliebigen Trennzeichen

105041



Mit diesem Makro können Sie beliebige Zellinhalte als Ascii-Datei in eine Text-Datei exportieren.
Es kann ein beliebiges Trennzeichen verwendet werden.

So sehen die zu exportierenden Daten aus:
  A B C D
1 123,5 2,98 3,55 2,15
2 20,66 45,66 2,3 4,25
3 55,3 64,6 45,2 1,11


Sub
 ascii_datei_exportieren()
Close #1

'Öffnen der Textdatei
Open "d:\temp\text.txt" For Output As 1

'Schleife für Zeilen
For zeile = 1 To 3
    Text = ""
        'Schleife für Süalten
        For spalte = 1 To 4
            Text = Text & CDbl(Cells(zeile, spalte))
        If spalte < 4 Then Text = Text & ";" 'Trennzeichen = ;
        Next
    Print #1, Text
Next

'Schließen der Textdatei
Close #1
End Sub


Es wird eine Text-Datei (ASCII-Datei) im Verzeichnis d:\temp\ mit folgendem Inhalt erzeugt:

123,5;2,98;3,55;2,15
20,66;45,66;2,3;4,25
55,3;64,6;45,2;1,11

Die Zahlen wurden mit einem Semikolon getrennt, da dieses als Trennzeichen angegeben wurde.

Wenn Sie neben Zahlen auch Textfelder exportieren möchten, dann ändern Sie den Code wie folgt ab:

Sub ascii_datei_exportieren()
Close #1

'Öffnen der Textdatei
Open "d:\temp\text.txt" For Output As 1

'Schleife für Zeilen
For zeile = 1 To 3
    Text = ""
        'Schleife für Süalten
        For spalte = 1 To 4
            Text = Text & CVar(Cells(zeile, spalte))
        If spalte < 4 Then Text = Text & ";" 'Trennzeichen = ;
        Next
    Print #1, Text
Next

'Schließen der Textdatei
Close #1
End Sub

Sie sagen jetzt, der schneller Weg wäre, einfach eine CSV-Datei zu erzeugen.
Wenn Sie es manuell machen funktioniert es. Möchten Sie jedoch per VBA eine
CSV-Datei erzeugen, so verwendet Excel die amerikanische Zahlen- und Datumsschreib-
weise und es kommt zu Problemen. In diesem Fall ist es besser Sie verwenden das
oben stehende Makro