Excel Probleme mit Textdatei Export

Question

Hi,

Ich versuche eine Excel Datei als TExtdatei zu exportieren, das klappt auch wunderbar nur leider fügt Excel bei manchen Zeilen Anführungszeichen " hinzu. z.B. wenn eine Zeile auf einen Beistrich endet oder wenn geschwungene Klammern in der Zeile vorkommen.

In Excel steht z.B. in einer Zeile:

Hallo,

In der exportierten Textdatei steht dann:

"Hallo,"

mit Anführungszeichen

Gibt es dafür eine Lösung?

lg

Arret

Answer 1

Wenn Du es ohnehin mit VBA machst, könntest Du auch gleich die volle Kontrolle übernehmen und das Speichern selbst erledigen. Der unten stehende Code speichert die aktuelle Tabelle ohne Anführungszeichen ab - als Text-Datei mit "," als Trennzeichen zwischen den Spalten. Natürlich kannst Du stattdessen auch ";" oder vbTab oder anderes nehmen.

Peter

Sub ExportOhneAnfuerungszeichen()

   Dim r        As Long

   Dim arr      As Variant

   Dim file     As Variant

   Dim makeFile As String

   makeFile = "E:\test\export.txt"  'Bitte Pfad anpassen

   Set file = CreateObject("Scripting.FileSystemObject").CreateTextFile(makeFile, True, True)

   With ActiveSheet

      arr = .Range(.[A1], .UsedRange.Cells(.UsedRange.Cells.Count))

      If Not IsArray(arr) Then

         file.WriteLine arr

      Else

         For r = 1 To UBound(arr)

            file.WriteLine Join(WorksheetFunction.Index(arr, r, 0), ",")

         Next

      End If

   End With

   file.Close

End Sub

Answer 2

Hi Mark,

Danke für deine Hilfe!

Ich habe jetzt mal andere Text Exportoptionen ausprobiert leider escaped Excel immer.

Ich habe aber entdeckt das wenn ich es als "Formatted Text (Space delimited) (*.prn)" exportiere Excel es nicht escaped! Das genügt für mich :)

lg und danke

Arret

Answer 3

Hallo, Arret,

Arret:

> Es ist Excel 2007 und ich exportiere eigentlich mit einem Makro:

> ActiveWorkbook.SaveAs Filename:=makeFile, FileFormat:=xlUnicodeText, CreateBackup:=False

das liegt an dem Listentrennzeichen. Du könntest es für den Export in

den Ländereinstellungen umstellen und danach wieder zurück ändern. Das

ist umständlich, ich weiß, aber Excel versucht unbedingt, beim

SpeichernAls vorhandene Listentrennzeichen durch "" zu "escapen".

Gruß - Mark

Answer 4

Hi!

Es ist Excel 2007 und ich exportiere eigentlich mit einem Makro:

ActiveWorkbook.SaveAs Filename:=makeFile, FileFormat:=xlUnicodeText, CreateBackup:=False

lg

Arret

Answer 5

Hallo, Arret,

Arret:

> Ich versuche eine Excel Datei als TExtdatei zu exportieren, das klappt auch wunderbar nur leider fügt Excel bei manchen Zeilen Anführungszeichen "

> hinzu. z.B. wenn eine Zeile auf einen Beistrich endet oder wenn geschwungene Klammern in der Zeile vorkommen.

>

> In Excel steht z.B. in einer Zeile:

> Hallo,

>

> In der exportierten Textdatei steht dann:

> "Hallo,"

> mit Anführungszeichen

welche Excel-Version und wie genau exportierst Du?

Gruss - Mark