TXT-Export, vorangestellte Nullen
05.02.2007 19:24:45
bully
ich habe ein Problem mit einem Datenformat beim Export in eine TXT-Datei. Insgesamt werden 13 Spalten aus meinem Tabellenblatt Exportiert, die Spalte 3 wird separat kopiert, damit das Datumsformat gesetzt werden kann. Soweit so gut, jetzt habe ich in Spalte 5 und 8 zwei- bis fünfstellige Zahlen die immer mit fünf Stellen angezeigt werden sollen z.B. 22222; 02222; 00222; 00022; 00002. Jetzt habe ich die Spalten Benutzerdefiniert (00000) formatiert, die Zahlen werden damit in Excel wunschgemäss angezeigt. Beim exportieren, gehen dann aber die vorangestellten Nullen leider verloren. Wie bringe ich die Nullen nun am einfachsten in die TXT-Datei?
Mein bisheriger Code zum exportieren sieht wie folgt aus:
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 <> 3 Or iR < 9) Then
strTxt = strTxt & Cells(iR, iC) & strSep
Else
strTxt = strTxt & Format(Cells(iR, 3), "ddmmyyyy") & strSep
End If
End If
Next iC
While (Right(strTxt, 1) = strSep)
strTxt = Left(strTxt, Len(strTxt) - 1)
Wend
If Trim(Replace(strTxt, strSep, "")) > "" Then Print #1, strTxt
Next iR
Close #1 }
Bin dankbar für jeden Tipp
Gruss bully