Fórum Exportar dados de uma ADOQuery para o excel. #213273

Evento OnClickDoBotão:
..
Var
  Cont : Integer;
begin
   Cont := 2;
   ExcelApplication1.Workbooks.Add(EmptyParam,0); // Cria um novo documento
   ExcelApplication1.Caption := ´Exportandp para o excel...´; /// Mesma função do caption de um form
   ExcelApplication1.Visible[0] := True;// Se false, o excel irá rodar em background....
   If(Not(Table.Active))Then
     Table.Active := True;
  ExcelApplication1.Range[´A1´,´A1´].Value2 := ´Codigo´; // A célula A1 receberá  a string "Codigo"
  ExcelApplication1.Range[´B1´,´B1´].Value2 := ´Nome´;// ...
  ExcelApplication1.Range[´C1´,´C1´].Value2 := ´Descrição´;// ...
  ExcelApplication1.Range[´A1´,´C1´].Font.Color := clRed; // As células A1,B1 e C1 terão fonte vermelha
  ExcelApplication1.Range[´A1´,´C1´].Interior.Color := clBlack; As células A1,B1 e C1 terão preenchimento preto
   Table.First;
   While(Not(Table.Eof))do
   Begin
      With(ExcelApplication1)Do
      Begin
         Range[´A´+IntToStr(Cont),´A´+IntToStr(Cont)].Value2 := Table.FieldByName(´cod´).AsString;
         Range[´B´+IntToStr(Cont),´B´+IntToStr(Cont)].Value2 := Table.FieldByName(´nome´).AsString;
         Range[´C´+IntToStr(Cont),´C´+IntToStr(Cont)].Value2 := Table.FieldByName(´ende´).AsString;
         Table.Next;
         Cont := Cont + 1;
      End;
   End;
   ExcelApplication1.ActiveWorkbook.SaveCopyAs(´C:\teste.xls´,0); // Salva uma copia do documento em C:\ com o nome de teste.xls


end;

if query.Active=true then //verifica se a query está aberta
begin
statusbar1.panels[0].text:=´Aguarde... Exportando dados para o Excel...´;
screen.cursor := crSQLWait;
cursor:=crSQLwait;
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;

query.First;
try
for linha:=0 to query.RecordCount-1 do
begin
for coluna:=1 to query.FieldCount do // eliminei a coluna 0 da relação do Excel
begin
valor:= query.Fields[coluna-1].AsString;
excel.cells [linha+2,coluna]:=valor;
end;
query.Next;
end;

for coluna:=1 to query.FieldCount do // eliminei a coluna 0 da relação do Excel
begin
valor:= query.Fields[coluna-1].DisplayLabel;
excel.cells[1,coluna]:=valor;
end;
excel.columns.AutoFit; // esta linha é para fazer com que o Excel dimencione as células adequadamente.
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;

coluna, linha: integer;
excel: variant;
valor: string;