Muitas vezes precisamos de vários relatórios que se diferem pelos campos que são apresentados. Nestas ocasiões o melhor é gerar uma planilha no excel onde o usuário pode facilmente exluir as colunas que ele não precisa. Para isto criei um procedimento que recebe como parâmetro o nome de um consulta (Query) e gera uma planilha com os campos e registros da consulta.
Esta é mais uma facilidade do Delphi.
Veja o Código:
procedure TNOMEDOFORMULÁRIO.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;
- Substitua NOMEDOFORMULÁRIO pelo nome do formulário onde você está inserindo este procedimento.
- Declare o procedimento na cláusula type: procedure GerarExcel(Consulta:TQuery);
- Declare a unit ComObj na cláusula uses.
- Para chamar : GerarExcel(NOMEDACONSULTA);