Transfer data dari Program Delphi ke Excel

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

BlueDEX Ads