Exportar para o excel
23/01/2006
0
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
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
Curtir tópico
+ 0
Responder
Posts
17/10/2006
Tiagorocha
Não sei se ainda dá tempo, mas... já tentou usar a função RoundTo da unit Math?
Responder
Clique aqui para fazer login e interagir na Comunidade :)