Delphi de Excele Veri Aktarımı

Discussion in 'Programlama' started by sha., Aug 10, 2009.

  1. sha.

    sha. ..daha çirkin, daha huysuz

    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;
     

Share This Page