Mega Code Archive
Dbgrid verilerini [tquery] excel sayfasina aktarma
<![CDATA[
{Bu kod ornegi herhangi bir table'dan Ad ve Soyad verilerini ceken TQuery verilerini, Excelde yeni bir calisma sayfasi acip icine yazar.}
{uses satirina comobj unitini ekleyin}
procedure TForm1.Button1Click(Sender: TObject);
var
v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}
say,i:integer;
begin
query1.open;
say:=query1.recordcount;//query kayit sayisi
v:=createoleobject('excel.application');//exceli yarat
v.workbooks.add;//yeni calisma kitabini ekle
sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
query1.first;
for i:=1 to say do
begin
sayfa.cells[i,1]:=query1ad.text;
sayfa.cells[i,2]:=query1soyad.text;
query1.next;
end;
v.visible:=true;//Exceli acip verileri goster
end;
]]>