Fórum Criar um Arquivo com Excel ? #207145

declarar na uses ComObj
colocar antes da private
procedure GerarExcel(Consulta: TQuery);
private
{ private declarations }
public
{ public declarations }
end;
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

procedure TForm1.GerarExcel(Consulta: TQuery);
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; excel.cells [linha+2,coluna]:=valor;
end;
Consulta.Next;
end;
for coluna:=1 to Consulta.FieldCount do
begin
valor:= Consulta.Fields[coluna-1].DisplayLabel;
excel.cells[1,coluna]:=valor;
end;
excel.columns.AutoFit;
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
GerarExcel(Consulta);
end;