Problem beim Erzeugen einer CSV
17.05.2005 12:11:45
SteffenS
ich muss meinen Beitrag von voriger Woche nochmal einstellen, denn ich habe leider noch keine Lösung gefunden.
Hier also meine Frage:
Ich erzeuge mit Excel eine CSV Datei, die ja bekanntlich die Spalten mit Komma trennt.
Mit einem Makro bekomme ich es hin dass die Datei die Kommas in Semikolas umwandelt.
Leider tritt dabei ein Phänomen auf, alle Beträge die vorher als Dezimaltrenner einen Punkt (".") hatten, haben nach der Umwandlung ein Komma (",").
Was muss ich tun, damit auch weiterhin der Dezimaltrenner ein Punkt (".") ist?
Hier nun mein Code:
Sub semi_setzen_bm_report()
'Komma in Semikolon ersetzen
Dim s$
Dim TMP$
Dim z%, f%
' Text-Datei erstellen. Zeilenweise übertragen durch "TMP"
Open "C:\bm_report\export_files\BM_Report " For Output As #1
For z = 1 To ActiveSheet.UsedRange.Rows.Count
For f = 1 To ActiveSheet.UsedRange.Columns.Count
TMP = TMP & CStr(ActiveSheet.Cells(z, f).Text) & ";"
Next f
Print #1, TMP
TMP = ""
Next z
Close 1
End Sub
Danke für Eure Hilfe
MFG
Steffen Schmerler