Exportar Dbgri para excel

[Jonatas_jow 0]

Ola,estou tentando exportar os dados que estão sendo visualizados em uma DBGrid para o excel, ja procurei em varios lugares mas nada me ajudou,alguem pode me ajudar?

Obrigado :(

[HeavenHoods 0]

Ola,estou tentando exportar os dados que estão sendo visualizados em uma DBGrid para o excel, ja procurei em varios lugares mas nada me ajudou,alguem pode me ajudar?

Obrigado :(

 

Voce pode usar o resultado da query direto na exportaçao. segue exemplo =), se ajudar, agradeça.

 

 

procedure pExportarDadosExcel(Query : TQuery);

var

Excel : Variant;

Linha, i : Integer;

begin

if not Query.IsEmpty then

begin

Query.First;

Excel := CreateOleObject('Excel.Application');

Excel.Visible := True;

Excel.Workbooks.Add;

Linha := 1;

for i := 0 to Query.FieldCount - 1 do

Excel.WorkBooks[1].Sheets[1].Cells[Linha,i+1] := Query.Fields.DisplayName;

Linha := 2;

While not Query.Eof do

Begin

for i := 0 to Query.FieldCount - 1 do

Excel.WorkBooks[1].Sheets[1].Cells[Linha,i+1] := Query.Fields.Value;

Query.Next;

Linha:=Linha+1;

end;

end;

end;

[Jonatas_jow 0]

Vlw cara, mas devo ta fazendo alguma coisa errada porque ta aparecendo erro de sequencia de classe invalida