kann mir jemand helfen, ein Arbeitsblatt ab Zeile 3 mit 59 Spalten in eine Textdatei zu exportieren?
Bedingung: Feldtrenner soll | (Alt gr & <) sein.
Gruß Peter
Sub TextSpeichern()
Dim Dateinummer%, lsZ%, s%, z%, TMP$
Dateinummer = FreeFile
lsZ = Cells(1, Columns.Count).End(xlToLeft).Column
Open "C:\Daten\test.txt" For Output As #Dateinummer
For z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For s = 1 To lsZ
TMP = TMP & CStr(Cells(z, s).Text) & "|"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
End Sub
Gruß
Heinz
Sub TextSpeichern()
Dim Dateinummer%, lsZ%, s%, z%, TMP$
Dateinummer = FreeFile
lsZ = Cells(1, Columns.Count).End(xlToLeft).Column
Open "C:\Daten\test.txt" For Output As #Dateinummer
For z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For s = 1 To lsZ
TMP = TMP & CStr(Cells(z, s).Text) & "|"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
End Sub
Gruß
Heinz
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