Mit Tabulatoren exportieren
08.08.2006 21:04:29
Klaus
mit dem folgenden Makro exportiere ich einen Bereich von
Worksheet 3 als Text mit Formeln in eine separate Textdatei.
Problem: ich möchte, dass in der Textdatei die Excel-Zellen mit
Tabulator getrennt erscheinen -
ich bekomme aber immer nur ein Leerzeichen. Wer kann helfen?
Für Antworten Dank im voraus.
Klaus
Sub TextExport()
Dim rng As Range
Dim iWks As Integer, iRow As Integer, iCol As Integer
Dim sTxt As String, sPath As String
sPath = ThisWorkbook.Path & "\"
For iWks = 3 To 3
Open sPath & Worksheets(iWks).Name & ".txt" For Output As #1
Set rng = Worksheets(iWks).Range("A1").CurrentRegion
For iRow = 3 To 100
For iCol = 4 To 13
sTxt = sTxt & Cells(iRow, iCol).FormulaLocal & vbTab 'Text+Formeln ausgeben
Next iCol
Print #1, Left(sTxt, Len(sTxt) - 1)
sTxt = ""
Next iRow
Close #1
Next iWks
MsgBox "Sie finden die Textdateien im Ordner " & Left(sPath, Len(sPath) - 1)
End Sub