TXT-Export
08.12.2006 11:07:46
bully
Das Tabellenblatt wird mit fogendem Code in eine TXT-Datei exportiert:
Open strDat For Output As #1
For iR = 3 To iRow
strTxt = ""
For iC = 1 To iCol
If Columns(iC).Hidden = False Then
If (iC 4 Or iR strTxt = strTxt & Cells(iR, iC) & strSep
Else
strTxt = strTxt & Format(Cells(iR, 4), "ddmmyyyy") & strSep
End If
End If
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
If Trim(Replace(strTxt, strSep, "")) > "" Then Print #1, strTxt
In der ersten Exportzeile werden 13 Spalten Exportiert, in den folgenden Zeilen werden dann aber nur noch 11 Spalten benutzt. In der TXT-Datei werden aber weiterhin 13 Tabstopps gesetzt, dass heisst nach den 11 Spalten mit den Daten, werden noch zwei "leere" Tabs gesetzt.
Können diese 2 "leeren" Tabs irgendwie unterdrückt werden? Sie stören die funktionalität zwar nicht, müssten aber auch nicht sein.
Gruss bully