Zusätzliche Anführungszeichen in exportierten Textdateien (Microsoft Excel) entfernen
Manchmal können die von Excel verwendeten Exportfilter zu unerwünschten Ergebnissen in der exportierten Datei führen. Wenn Sie beispielsweise in eine durch Tabulatoren getrennte Textdatei exportieren, setzen einige Excel-Filter Anführungszeichen um den Text in einer Zelle. Angenommen, eine bestimmte Zelle enthält den folgenden Text:
Create bts; sitemask = "0110"; pcmlink = 40
Auf diese Weise wird der Text in der Zelle jedoch von Excel exportiert:
"Create bts; sitemask = ""0110""; pcmlink = 40"
Beachten Sie, dass Excel zusätzliche Anführungszeichen hinzufügt, zuerst um den gesamten Zelleninhalt und dann einen zusätzlichen Satz um jeden zuvor „zitierten“ Text in der Zelle.
Eine Lösung zur Behebung des Problems besteht darin, die von Excel erstellte Textdatei einfach in ein anderes Programm wie Word zu laden und die Funktion Suchen und Ersetzen zu verwenden, um unerwünschte Anführungszeichen zu entfernen. Eine bessere Lösung besteht jedoch darin, ein eigenes Makro zu erstellen, mit dem die Ausgabetextdatei erstellt wird.
Betrachten Sie das folgende Makro:
Sub Export() Dim r As Range, c As Range Dim sTemp As String Open "c:\MyOutput.txt" For Output As #1 For Each r In Selection.Rows sTemp = "" For Each c In r.Cells sTemp = sTemp & c.Text & Chr(9) Next c 'Get rid of trailing tabs While Right(sTemp, 1) = Chr(9) sTemp = Left(sTemp, Len(sTemp) - 1) Wend Print #1, sTemp Next r Close #1 End Sub
Sie müssen lediglich die Zellen auswählen, die Sie exportieren möchten, und dann das Makro ausführen. Die Zellen in der Auswahl werden aus dem Arbeitsblatt extrahiert und in der Datei c: MyOutput.txt abgelegt. (Dieser Dateiname kann im Makro nach Ihren Wünschen geändert werden.)
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (8321) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: