Başlangıç > Kodlar > Delphi’de excel’e veri aktarımı

Delphi’de excel’e veri aktarımı

DBgird alanlarındaki verileri Excel E aktarma işlemi

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[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),'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;


TD Software


Reklamlar
  1. ömer
    15/05/2014, 22:00

    merhaba bende sql excel e aktarmak istiyorum nasıl yapabılırım acaba delphi üzeriden

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: