procedure TOGRENCILISTESI.BitBtn3Click(Sender: TObject); var aralik:ExcelRange; I,satir:integer; bookmark:TBookmarkStr; begin //Excel Uygulaması oluşturma ExcelApplication1.Visible[0]:=true; ExcelApplication1.Workbooks.Add(null,0); //Hücreleri doldur aralik:=ExcelApplication1.ActiveCell; for I:=0 to Table1.Fields.Count-1 do begin aralik.Value2:=Table1.Fields.DisplayLabel; aralik:=aralik.Next; end; //Alanları Satırlara ekle try bookmark:=Table1.Bookmark; try Table1.First; satir:=3; //3.satırdan itibaren while not Table1.Eof do begin aralik:=ExcelApplication1.Range['A'+IntToStr(satir),'A'+Inttostr(satir)]; for I:=0 to table1.Fields.Count-1 do begin aralik.Value2:=table1.Fields.AsString; aralik:=aralik.Next; end; table1.Next; Inc(satir); end; finally table1.Bookmark:=bookmark; end; finally end; end;