Office: SaveAs CSV-Trennzeichen Ländereinstellungen

Hallo zusammen,

wie könnte es anders sein, ich habe ein Problem. Nach ca drei Stunden suche im Netz und ausprobieren, habe ich immer noch keine brauchbare Lösung gefunden.

Nun aber zum eigentlichen Problem:

Ich habe per VBA ein Tabellenblatt generiert, welches in eine neue Datei geschrieben wird. Diese neue Datei soll als ASCII gespeichert werden, also mit Trennzeiche Semikolon ";" und die Dezimalstellen bei den Beträgen mit Komma. In diversen Beiträgen wird darauf hingewiesen, dass die localen Ländereinstellungen mit dem Parameter "Local:= True" übernommen werden sollen und anschließend die CSV-Datei richtig erstellt wird. Mein Quellcode bis hier hin lautet:

ActiveWorkbook.SaveAs Filename:="Ascii_PN_01_" & lfd_Jahr & ".txt", _
FileFormat:=xlCSV, CreateBackup:=False, local:=True

Doch leider funktioniert das nicht! Wie kann ich die einzelnen Parameter für die Trennzeichen und Dezimalkennung festlegen? Wie muss der Quellcode ergänzt werden??? Wie kann ich die ApplicationInternationel-Konstanten beeinflussen und/oder ändern?

Vielen Dank schon im Voraus.
Grüßle, Epeios.

:)

 

Hallo Epeios,

Du kannst die Einstellungen per VBA beeinflussen :

Application.UseSystemSeparators = False 'Nicht die Einstellungen der Systemsteuerung übernehmen
Application.DecimalSeparator="," 'Dezimaltrennzeichen festlegen
Application.ThousandsSeparator="." 'Tausenderpunkt festlegen

Mit dem von Dir erwähnten Parameter Local:=TRUE der .SaveAs-Methode wird dann das Listentrennzeichen der Systemsteuerung (in der deutschen Version also das Semikolon) verwendet !

Zum Abfragen der AKTUELLEN WERTE der Systemsteuerung diene folgende Anweisungen :
MsgBox Application.International(xlDecimalSeparator) = "," 'Dezimaltrennzeichen
MsgBox Application.International(xlDecimalSeparator)
MsgBox Application.International(xlListSeparator) = ";" 'Listentrennzeichen
MsgBox Application.International(xlAlternateArraySeparator) 'Alternatives Listentrennzeichen (Wenn Listentrennzeichen und Dezimalzeichen identisch sind !)

Ich hoffe, das hilft Dir ein wenig weiter....

 

Hallo NoNet,

danke für Deinen Beitrag. Leider haben diese Ausführungen bei mir zu keinem besseren Ergebnis geführt. Die Einstellung der Application.International werden in der Msg-Box richtig wieder gegeben, leider aber nicht beim schreiben in die zu speichernde Datei. Diese sieht nach dem Durchlauf des Macros unverändert aus (US-Ländereinstellungen) also als Listentrennzeichen das Komma und als Dezimaltrennzeichen der Punkt. Ebenfalls wird das Datum noch falsch dargestellt. Hier erfolgt die Trennung mit "/" und nicht mit "." .... Was kann ich noch tun? Die Systemeinstellungen sind richtig, werden aber nicht übernommen...

Vielen Dank schon mal im Voraus.

Grüßle, Epeios.

 

Hi,

geht mir genauso beim Speichern.
Habe aber den Grund und auch einen Workaround gefunden.

'Local' scheint nur bei 'SaveAs' mit 'Workbook' beachtet zu werden. Beim Objekt 'Worksheet' wird bei mir auch jedesmal das englische Format geschrieben.

Workaround: mit 'Workbook' speichern und vorher das jeweilige Blatt aktivieren. Ist zwar nicht schön, funktioniert aber.

Komisch ist, dass ich die Erklärung beim meinem 10-Minuten-Googlen nicht gefunden habe. Sind nur wir beide betroffen??

 

Sorry, dass ich diesen alten Mist noch einmal aufmache, aber bei mir funktioniert es einfach nicht (Office 2010)

Mein Code lautet:

Sub CSV_speichern()

MsgBox Application.International(xlListSeparator) = ";"

'speichern als csv
Sheets("CSV").Select
Sheets("CSV").Copy
ActiveWorkbook.SaveAs Filename:= _
Cells(1, 10).Value, _
FileFormat:=xlCSV, local:=True

Range("j1").Select
Selection.Clear
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

In der Zelle J1 steht der Dateiname mit Pfad (ohne *.csv)

Die Messagebox sagt, dass ";" WAHR ist.

Hat jemand da mal eine konstruktive Idee ?

VG


Blue Raven