Fórum Exportar dados de um dbgrid para o excel #515388

procedure TFormrelcorreio.BitBtn2Click(Sender: TObject);
Var
linha, coluna: integer;
planilha: variant;
valorCampo: string;
begin
planilha:= CreateOleObject('Excel.Application');
planilha.Workbooks.add(1);
planilha.Cells.Select;
planilha.Selection.NumberFormat := '@';
planilha.caption:= 'Exportação de dados para o excel';
planilha.visible:= true;
Query1.First;
for linha:= 0 to Query1.RecordCount-1 do
begin
for coluna:= 1 to Query1.FieldCount do
begin
valorCampo:= Query1.Fields[coluna-1].AsString;
planilha.cells[linha+2,coluna]:= valorCampo;
end;

Query1.Next;

end;
for coluna:=1 to Query1.FieldCount do
begin
valorCampo:= Query1.Fields[coluna-1].DisplayLabel;
planilha.cells[1,coluna]:= valorCampo;
end;
planilha.columns.AutoFit;
end;