implementation
uses ComObj;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}
i,d,k:integer;
r:variant;
begin
//programda sadece bir kez kullanılan listeleme
//asağidaki tek satırla halledildi...
table1.First; //butona tekrar bastığınızda tekrar listeletiyor...
v:=createoleobject('excel.application');//exceli yarat
v.workbooks.add;
sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
r:=v.activeworkbook.worksheets[1].cells[1]; // Burası Çok önemli
//******* emindogu@hotmail.com ******//
k:=0;
repeat
r.cells[1,k+1]:=Table1.Fields[k].DisplayLabel;//Başlıkları Yazıyor
k:=k+1;
until k=table1.Fields.Count;
//******* emindogu@hotmail.com ******//
i:=0;
d:=0;
while Not Table1.eof do
begin
i:=i+1;
d:=d+1;
r.cells[1+d,i]:=Table1.FieldByName('SOYISIM').AsString;
r.cells[1+d,i+1]:=Table1.FieldByName('EKAC').AsString;
Table1.Next;
i:=0;
end;
v.visible:=true;//Exceli acip verileri
end;
umarım kodun gercek sahibi kızmamıstır! :) iyi calismalar!...