OLE-Excel Problem - Formatierung in Excel

[Gouston]

Hallo ,

ich habe folgendes:

Delphi-Quellcode:

//...
 
  Sheet.Cells[1, 1] := Query1.FieldByName('feld1').asFloat;

//...

Wenn in feld1 der Wert 2123,40 steht, erhalte ich im Sheet 2123,4
Ich hätte aber gerne 2.123,40 drin stehen. Natürlich nicht im Textformat,
sondern im Zahlenformat. Ich muss in Excel damit rechnen können.

Kann jemand einen Tipp geben ?

Gouston

[horst]

vielleicht so

Delphi-Quellcode:

Sheet.Cells[1, 1] := Query1.FieldByName('feld1').AsInteger;

[Gouston]

nee...geht nicht.
Das Feld in der Datenbank ist Number mit Nachkommastellen...also Float für Delphi.

[PeterRettig]

Hallo Gouston,

du musst vorher die Formatierung der Zelle in Excel ändern.
Also zuerst die gewünschte Zeile selektieren:

z.B.: Range("A3").Select

Und danach die Formatierung anpassen:
Selection.NumberFormat = "0.00"

Ciao Peter

[Gouston]

Hallo Peter,

danke für den Tip !

So geht's :

Delphi-Quellcode:

var
 vBetrag : extended;
begin
//  ...
 DecimalSeparator := '.';
 ThousandSeparator := ',';

 vBetrag := Query1.GetField('feld1');
 Sheet.Cells[1,1].select;
 Excel.Selection.NumberFormat := '#.##0,00';
 Sheet.Cells[1,1].FormulaR1C1 := vPBetrag; 
//...

Gouston