Anda pengemar Delphi, kali ini saya akan membahas transfer dara dari Program Delphi ke Excel.
langkah 1 :
Tambahkan deklarasi berikut di publik deklarasi
public
{ Public declarations }
XLApp1, Sheet:Variant ;
sisipkan codeing berikut di coding delphi anda :
//buka file excel
XLApp1 := createoleobject('excel.application');
XLApp1.Workbooks.open('c:\Transfer_Ke_Excel.xls') ;
//aktifkan sheet 1
Sheet := XLApp1.WorkSheets[1] ;
//isi sheet cell (baris,kolom)
sheet.cells.item[3,1].value := 'Pratinjau';
sheet.cells.item[4,1].value := 'COBA';
//proses simpan
XLApp1.ActiveWorkBook.SaveAs('coba.xls');
XLApp1.ActiveWorkBook.close;
XLApp1.Workbooks.close;
selamat mencoba.
jika belum jelas bisa Chat With gTalk dengan saya :
gTalk