Buscar

Exportando dados p/ o excel

Código

//adcione na clausa
uses
COMobj
...
...
procedure TfrmMain.Gerar;
 var
  excel :variant;
try
 excel := CreateOleObject('excel.application');
 if not Excel.Application.Visible then
  Excel.Application.Visible := true;
  Excel.WorkBooks.Add;
  Excel.Cells[1,1] := 'meu valor 1';
  Excel.Cells[1,2] := 'meu valor 2';
  Excel.Cells[1,3] := 'meu valor 3';
  Excel.Cells[1,4] := 'meu valor 4';
except
  showmessage('Ocorreu erro ao executar a transferência')
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 24/07/03
Por: Jean Fredson
Visualizada: 31628 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009