ich möchte eine Excel-Arbeitsmappe als Textdatei speichern und dabei ein besonderes Trennzeichen, z. B. Apostroph ' vorgeben. Hat einer eine Idee wie man das lösen könnte?
Vielen dank schon mal und viele Grüße aus dem sonnigen Frankfurt
Thomas
Sub Export()
Dim Z%, S%
Dim msg$, Trennzeichen$
Dim LetzteSpalte%, LetzteZeile%
Worksheets("Mappe3").Activate
LetzteSpalte = Cells.SpecialCells(xlLastCell).Column
LetzteZeile = Cells.SpecialCells(xlLastCell).Row
Trennzeichen = "'"
Open "C:\Ergebnis.txt" For Output As #1
For Z = 1 To LetzteZeile
msg = Cells(Z, 1)
For S = 2 To LetzteSpalte
msg = msg & Trennzeichen & Cells(Z, S)
Next S
Print #1, msg
Next Z
Close #1
End Sub
ungetestet.
Viel Erfolg
Yal
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen