Eu uso a seguinte rotina:
procedure TfrmGerarPlanilhasEstoque.GerarExcel(Consulta: TIBQuery;
pTituloPlanilha:String);
var
coluna, linha : integer;
excel: variant;
valor: string;
begin
try
excel:=CreateOleObject('Excel.Application');
excel.Workbooks.add(1);
except
Application.MessageBox ('Versão do Ms-Excel
Incompatível','Erro',MB_OK+MB_ICONEXCLAMATION);
end;
Consulta.First;
try
for linha:=0 to Consulta.RecordCount-1 do
begin
for coluna:=1 to Consulta.FieldCount do
begin
valor := Consulta.Fields[coluna-1].AsString; //Inserindo
os valores a partir da 3ª linha
if (coluna in [2]) then
excel.cells[linha+3,coluna]:= valor //Se for um valor
numérico, insere sem a aspa simples no início, neste caso a coluna 2 é um
valor numérico
else
excel.cells[linha+3,coluna]:=''''+valor; // Não sendo
numérico insere com a aspa simples no início, assim o excel não interpreta
um CPF, por exemplo, como número.
end;
Consulta.Next;
end;
for coluna:=1 to Consulta.FieldCount do // Inserindo os nomes de
colunas na 2ª linha
begin
valor:= Consulta.Fields[coluna-1].DisplayLabel;
excel.cells[2,coluna]:=valor;
end;
//Inserindo coluna de título para a planilha na 1ª linha
excel.cells[1,1] := pTituloPlanilha;
excel.cells[2,coluna].Font.Color := clBlue;
excel.columns.AutoFit;
Showmessage('Geração concluída com Sucesso!');
excel.visible:=true;
except
Application.MessageBox ('Aconteceu um erro desconhecido durante a
conversão da tabela para o Ms-Excel','Erro',MB_OK+MB_ICONEXCLAMATION);
end;
end;
Espero que lhe seja útil. Não precisa usar componente algum, apenas declare
as units ComObj, ActiveX
[]'s
Alessandro
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Levi Ribeiro de Freitas
Enviada em: terça-feira, 3 de outubro de 2006 11:13
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Exportar para Excel com componente nativo
Pessoal,
Conhecem algum componente nativo gratuíto que eu posso usar para exportar
dados para Excel?
Ats,
Levi Ribeiro
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
