CSV Datei mit Semikolon funktioniert nicht richtig
08.05.2005 18:20:34
SteffenS
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 Komma (",") 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
Anzeige