VBA und csv-Dateien
BBogo
Im deutschen Excel 97 versuche ich eine Tabelle mit Zahlen in eine csv-Datei
zu speichern:
sheet.SaveAs filename, Format:=xlCSV
Das Speichern klappt zwar, aber statt der in der Ländereinstellung
hinterlegten Trennzeichen (Punkt für Tausender, Komma für Dezimal und
Semikolon für Listentrennzeichen hat die Textdatei die amerikanischen
Trennzeichen.
Wäre alles nicht so schlimm, wenn beim Versuch die gleiche csv-Datei wieder
mit Open oder OpenText einzulesen die Sache völlig schief geht, weil nun
Excel die Trennzeichen, die es selber generiert hat nicht mehr versteht.
Alle Zahlen sind jetzt plötzlich mit Faktor 1000 multipliziert, weil Excel
den zuvor gespeicherten Punkt (Dezimaltrennzeichen) jetzt als
Tausendertrennzeichen interpretiert usw..
Öffnet man stattdessen die csv-Datei über den Explorer mit Doppelklick
erscheinen alle Zahlen in der neuen Tabelle richtig. Also kann Excel das
doch irgendwie. Frage ist jetzt nur, wie man das richtige Verhalten in VBA
erreicht.
Für alle Hilfe dankbar!!!
Bernhard
Frank Arendt-Theilen
leider mußt du selber für den richtigen Export sorgen. Benutze das
folgende Makro:
Sub AlsCSVSpeichern()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Set Bereich = ActiveSheet.UsedRange
Open "Test.csv" For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & CStr(Zelle.Text) & ";"
Next
Print #1, strTemp
strTemp = ""
Next
Close #1
End Sub
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Tue, 14 Mar 2000 14:45:59 +0100, schrieb "BBogo" <in...@boegner.de>
in microsoft.public.de.excel zu "VBA und csv-Dateien":
BBogo
und Danke für den Tip.
Bleibt nur die Frage offen: "Warum kann Excel unter VBA seine eigenen
Formaste nicht verstehen, wo es doch über den Explorer (nicht über
Excel-Datei-Öffnen [Text-Dateien]) funktioniert?"
mfg
Bernhard