Exportar para o excel

23/01/2006

Colegas...

Tenho esta rotina para exportar dados de uma query para o excel funcionando:

var
linha,coluna:integer;
planilha:variant;
valorcampo:string;
begin
if (rbcomum.checked =true)and(CheckExcel.Checked = True)then
begin
QRel.Open;
QRel.Open;
planilha:=CreateOleObject(´Excel.Application´);
planilha.Workbooks.add(1);
planilha.caption:=´Do Commando para o excel´;
planilha.Visible:=true;

QRel.First;

for linha:=0 to QRel.recordcount-1 do
begin
for coluna:=1 to QRel.FieldCount do
begin
valorcampo:=QRel.Fields[coluna-1].asstring;
planilha.cells[linha+2,coluna]:=valorcampo;
end;
QRel.next;
end;
end;

Só que nos campos tipo MOEDA NO EXCEL salva dessa forma
VALOR CORRETO 10,80 NO EXCEL ESTA FICANDO ASSIM 1.080.459
já fui no Query no campo preco em editmask digitei #,0.00 e não adiantou nada, continuou com o mesmo erro.

alguem teria uma ideia do que seria?

Grato:

Jose Luiz


Jose Luiz

Respostas

17/10/2006

Tiagorocha

Não sei se ainda dá tempo, mas... já tentou usar a função RoundTo da unit Math?


Responder Citar