Export Tabstopp-getrennt
08.09.2008 17:04:00
Bonnie
ich versuche seit Tagen aus einer Excel-Datei, von Blatt (2), die Spalten 1-7 in eine
eigene txt.-Datei, Tabstopp-getrennt zu exportieren.
Wenn ich das Makro aufzeichne, funktioniert es zwar, ist aber keine schöne Lösung :-))
Ich habe verschieden Lösungsansätze im Netz gefunden, keine funktioniert so richtig.
Die Beste war diese hier:
Sub XLS_nach_TXT_Export()
Dim Dateiname As String
Dim Zeile As Long
Dim Spalte As Integer
Dim GanzeZeile As String
Dim Trennzeichen As String
Dateiname = ThisWorkbook.Path & Application.PathSeparator& "Dienstplan.txt"
Zeile = 1
Spalte = 1
Trennzeichen = Chr(9) ' Chr(9) = Tabulator
Open Dateiname For Output As 1
For Zeile = 1 To ActiveSheet.UsedRange.Rows.count
' Alle benutzten Spalten der aktiven Tabelle werden durchlaufen
For Spalte = 1 To ActiveSheet.UsedRange.Columns.count
GanzeZeile = GanzeZeile & Trennzeichen & Cells(Zeile, Spalte).Value
Next Spalte
Print #1, GanzeZeile
GanzeZeile = ""
Next Zeile
Close #1
End Sub
Jedoch wird in der erzeugten txt.-Datei bei Spalte A ein Tab vorne an gestellt, so dass
die gesamte Textdatei am Anfang eine Leerspalte enthält....
Kann mir vielleicht jemand verraten warum?
Gruß
Bonnie