Kategoria walutowa w Excelu prze OLE

0

Hej :)

robie programik który robi remanent jakiegoś śmieccia.
Dane z bazy wrzucam do excela

 ExcelApp := CreateOleObject('Excel.Application');

prosta formuła sama wszystko liczy

ExcelApp.Cells[i+4, 8].Formula := '=Sum(H4:H'+IntTostr(i+3)+')';

tylko że wredny excel z 12,20 robi 12,2 z 15,00 robi 15
a dane w bazie specjalnie sa po przecinku
``Cena decimal(6,2) default '0.00',

ale gdyby ustawić komórce kategorię walutową albo księgową :) to był by bajka bo i zł by samo sie dodawało.

No i takie pytanko jak??? Jak zmienić kategorię tej wrednej komórki na zakładce Excela za pomocą Delphi??

dużo fajnego info jest tutaj : http://www.djpate.freeserve.co.uk/AutoExcl.htm

Ale tego akurat nie ma :(

Acha. To jest w Turbo Delphi więc nie piszcze że jakiś tam komponent do tego jest Bo sie nie przyda ;p

No chyba że ten komponent rozpowszechniają ze źródłami z których można by to wyciągnąc :) To bardzo chętnie poznam taki komponent:)

Z góry dzieki.
Pozdr

0

najprosciej chyba:

exapp.cells[i, 3].NumberFormat = '#,##0.00 $'

jezeli nie zadziala dla "zł" to moze zmienic $ na zł

0

własciwie to tak:

ExcelApp.cells[i+,8].NumberFormat := '# ##0,00 zł;-# ##0,00 zł';

Ale wieeeelkie dzieki za pomoc. [browar]

1 użytkowników online, w tym zalogowanych: 0, gości: 1