[ACC07] TransferSpreadsheet mit anschiesender Zellenformatierung

25/04/2008 - 16:23 von Sebastian Schlereth | Report spam
Hallo!

Habe ein komischen verhalten wenn ich Zellen einer Exceltabelle
formatiern möchte.
Als Datentyp verwende ich Currency (Wàhrung) in ACC.
Hier mal mein Code zum Export und Formatierung:


DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8,
"qry_Abrechnungsdaten", "C:\TEST.XLS", True

Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

With xlApp
.Workbooks.Open FileName:="C:\TEST.XLS"
.Columns("F:G").NumberFormat = "#,###.00 kg"
.Columns("C:E").NumberFormat = "#,###.00 €"
End With

Set xlApp = Nothing


Soweit ist alles OK.
Allerdings musste ich bei .NumberFormat = "#,###.00"
das Komma mit dem Punkt tauschen dammit es klappt.
Das € funktionier, meine kg nicht?
Woran liegt das?

Grüße,
Sebastian
 

Lesen sie die antworten

#1 Gunter Avenius
25/04/2008 - 18:00 | Warnen spam
Hallo Sebastian,

Sebastian Schlereth schrieb folgendes:
Habe ein komischen verhalten wenn ich Zellen einer Exceltabelle
formatiern möchte.
Als Datentyp verwende ich Currency (Wàhrung) in ACC.
Hier mal mein Code zum Export und Formatierung:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8,
"qry_Abrechnungsdaten", "C:\TEST.XLS", True

Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

With xlApp
.Workbooks.Open FileName:="C:\TEST.XLS"
.Columns("F:G").NumberFormat = "#,###.00 kg"
.Columns("C:E").NumberFormat = "#,###.00 €"
End With

Set xlApp = Nothing

Soweit ist alles OK.
Allerdings musste ich bei .NumberFormat = "#,###.00"
das Komma mit dem Punkt tauschen dammit es klappt.



Das ist normal (VBA spricht Englisch)

Das € funktionier, meine kg nicht?
Woran liegt das?



Frage doch mal in der Excel NG.

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen