Delphi: Excel´e Veri gönderme - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > Delphi / Kylix > Delphi: Excel´e Veri gönderme
Kategori: Delphi / Kylix
Gönderen: Admin
Tarih: 2008-12-07
Puan: 0   Puan:0 | Katılımcı:0 | Katılımcı : 0
Okunma: 13495
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

Veritabanındaki verileri form üzerine yerleştireceğiniz buton yardımıyla Excel´e atmanıza yardımcı olur.



procedure TForm1.Button1Click(Sender: TObject);
var
excel:variant;
begin
try
excel:=CreateOleObject(´Excel.Application´);
except
ShowMessage(´Excel Başlatırlırken Hata Oluştu. Lütfen Tekrar Deneyiniz.´);
exit;
end;
excel.workbooks.Open(´C:ExcelDosyalarKayitlarim.xls´,,ReadOnly:=False);
excel.Cells[9,6].value:=ADOTable1ID.value;
excel.Cells[10,6].value:=ADOTable1ADI.Value;
excel.Cells[10,8].value:=ADOTable1SOYADI.Value;
excel.Cells[11,6].value:=ADOTable1ADET.Value;
excel.Cells[33,3].value:=DateToStr(DateTimePicker1.Date);
excel.Visible:=True;

end;






Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.