mehrzeiligen Text (in Zelle) als txt exportieren
25.02.2004 09:09:39
rainer
ich hab da leider ein Problem:
In einer Mappe habe ich einige schreibgeschütze Zellen, in denen jeweils ein mehrzeiliger Text (auch mit Leerzeilen) steht. Ich möchte nacheinander den Text jeder einzelnen Zelle in einer jeweils neuen txt-Datei speichern.
Ich gehe das so an, dass ich per Macro eine Zelle markiere, diese kopiere, eine neue Mappe aufmache, in die erste Zelle den Text einfüge und die neue Mappe dann als txt abspeicher:
Sub TextExport()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("A742").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="TEST.TXT", _
FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Das funktioniert soweit auch. Mein Problem ist die Formatierung der erzeugten txt-Datei. Mit FileFormat:=xlTextPrinter hackt Excel den Text an einer bestimmten Stelle ab. Mit anderen txt-Export-Formaten hab ich am Anfang und am Ende des Textes der txt-Datei ein Anführungszeichen ("), welches ich aber nicht brauchen kann, da das Programm, mit dem ich die Daten dann weiter verarbeiten möchte, mit den Anführungszeichen nichts anfangen kann.
Mein Problem könnte auf verschiedene Art gelöst werden:
- den anderen txt-Export-Formaten verklickern, dass kein Anführungszeichen (")
erzeugt werden soll
oder
- dem FileFormat:=xlTextPrinter verklickern, dass es den Text nicht abhackt
oder
- beim einfügen des (mehrzeiligen) Textes in die neue Mappe, die einzelnen Zeilen in jeweils einzelne Zellen der neuen Mappe bringen, damit würde die Formatierung dann wieder hinhauhen
Ich hab blos keine Idee mehr, wie ich das schaffen soll. Könnt Ihr mir helfen?
Danke und Gruss
Rainer
Anzeige