|
|
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  | Katılımcı : 0 | | Okunma | : 12911 | | | | | |
| |
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. |
|
