menggunakan comobj, Excel97, excel2000;
//Tulis data dari Excel untuk mengakses perpustakaan
Prosedur ExcelToMdb(EXLfile:string;);
var
lembar,XLApp,buku kerja : varian;
iRow,MaxRow: bilangan bulat;
mulai
layar.Kursor:=crHourGlass;
mencoba
//Buat objek
XLApp:=createOleObject('Excel.aplikasi');
XLApp.displayAlerts:=salah;
XLApp.Pembaruan Layar:=false;
XLApp.WorkBooks.Add(EXLfile);
buku kerja := XLApp.buku kerja[1];
lembar:=buku kerja.lembar kerja[1];
//sheet:=XLApp.Buku Kerja[1].lembar kerja[1];
//Dapatkan jumlah baris maksimum maxRow
XLApp.ActiveCell.SpecialCells(xlLastCell).Pilih;
maxRow:=XLApp.ActiveCell.Row; //Jumlah baris maksimum
//Menulis data ke perpustakaan Access
ADOTable1.terbuka;
untuk iRow:=2 hingga MaxRow lakukan
if sheet.cells[iRow,1]<>'' maka //Kata kuncinya tidak kosong
mulai
ADOTable1.Tambahkan;
ADOTable1.fieldByName('ID').asInteger:=
strToInt(sheet.sel[iRow,1]);
ADOTable1.fieldByName('code').asString:=sheet.cells[iRow,2];//encoding
ADOTable1.fieldByName('name').asString:=sheet.cells[iRow,3];//nama
ADOTable1.posting;
akhir;
Akhirnya
jika bukan VarIsEmpty(XLApp) maka mulai //Lepaskan objeknya
XLApp.displayAlerts:=salah;
XLApp.Pembaruan Layar:=true;
XLApp.berhenti;
akhir;
layar.Cursor:=crDefault;
akhir;
akhir;
//===== Beberapa metode atribut lainnya================//
curRow:=XLApp.ActiveCell.Row;//Jumlah baris saat ini
XLApp.displayAlerts:=false;//Apakah akan menampilkan peringatan dan pesan saat menjalankan makro
XLApp.ScreenUpdating:=false; //Fungsi pembaruan layar, meningkatkan kecepatan;
//Setelah menyelesaikan operasi, ScreenUpdating diatur kembali ke True
XLApp.run('macroName',params...)//Jalankan makro
buku kerja.save;
buku kerja.SaveAs(AFileName,xlNormal,'','',False,False);