Export in Textdokument
21.11.2005 11:37:20
Michael
Ich will vom Tabellenblatt die Spalte A die Saplte C und die Spalte E in ein Textdokument kopieren. Mit unterem Code (keine Ahnung wo ich den her habe) wird das ganze Tabellenblatt exportiert. Kann mir vielleicht wer helfen?
Danke
Michael
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