Delphi - Excel'e veri aktarımı - Excel - Visual Basic



procedure TOGRENCILISTESI.BitBtn3Click(Sender: TObject);
var
aralik:ExcelRange;
I
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
satir:integer;
bookmark:TBookmarkStr;
begin
//Excel Uygulaması oluşturma
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Workbooks.Add(¤¤¤¤
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0);

//Hücreleri doldur
aralik:=ExcelApplication1.ActiveCell;
for I:=0 to Table1.Fields.Count-1 do
begin
aralik.Value2:=Table1.Fields[I].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)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
'A'+Inttostr(satir)];
for I:=0 to table1.Fields.Count-1 do
begin
aralik.Value2:=table1.Fields[I].AsString;
aralik:=aralik.Next;
end;
table1.Next;
Inc(satir);
end;
finally
table1.Bookmark:=bookmark;
end;
finally
end;
end;

Alıntı