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


Jose Luiz

Jose Luiz

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar