Bismillahirrohmanirrohim,
Assalamu’alaikum Wr Wb.
Sekitar 2 tahun (2012) yang lalu saya pernah menulis artikel “Export DBGrid ke Microsoft Excel” di grup facebook
(https://www.facebook.com/notes/komunitas-programmer-delphi-dan-interbase-indonesia/export-dbgrid-ke-microsoft-excel/390918654286205).
Alhamdulillah ternyata banyak yang tertarik dengan artikel tersebut,
unit tersebut telah didownload 457 kali pada saat postingan ini ditulis.
Kali ini saya tidak membahas tentang mengexport DBGrid/database ke Microsoft Excel namun hanya melakukan perbaikan/update pada unit yang ada dengan ditambahkan dokumentasi singkat dan contoh program.
Unit yang saya upload ada 2 versi yaitu untuk Delphi 7 dan Delphi 2006 (karena saya cuman punya 2 versi delphi itu .. hehehe)
Update Desember 2018 – Tambahan dukungan untuk Delphi 10.1-Berlin, Delphi 10.2-Tokyo 32/64bit dan Delphi 10.3-Rio 32/64bit.
Untuk menggunakan unit ini cukup mudah, copy unit yang sesuai dengan versi delphi yang anda pakai, taruh di folder lib atau jadikan satu dengan aplikasi.
Selanjutnya tambahkan VsrExcelOle pada klausa uses.
Berikut ini contoh potongan kodenya …
uses ..... VsrExcelOle; var Form1: TForm1; ex: VsrExcel; implementation procedure TForm1.Button1Click(Sender: TObject); begin if not Assigned(ex) then begin ex:=VsrExcel.Create; // komunikasi dengan excel ex.Show; // tampilkan excel end; ex.New; // buat workbook baru ex.AutoSelect:=True; // supaya otomatis aktifkan cell setelah menulis ex.Write('A1',Edit1.Text); // tulis Edit1 pada Cell A1 if CheckBox1.Checked then ex.Font.Bold:=True; // Tebalkan jika dicentang ex.Write('A2',Edit2.Text); // tulis Edit1 pada Cell A2 if CheckBox2.Checked then ex.Font.Bold:=True; // Tebalkan jika dicentang end;
Pada object VsrExcel ada property App yang dapat kita gunakan untuk memasukkan perintah VBA lainnya yang belum tersedia di unit ini.
Unit beserta dokumentasi dan contoh programnya dapat
didownload di https://app.box.com/s/f9c4ebde3a0ce86a1895
Bila ingin memperdalam VBA Excel silahkan baca di helpnya Excel, kalo gak punya bisa juga
didownload di https://app.box.com/s/1i5ivb6k04jgz0822ez1
Semoga bermanfaat
Mantap pak imam
ijin sedot……
joss pak, matur suwun ngih
@mas Indra: silahkan
@mas rooby: sami2
Update 17/12/2018 ..
Support Delphi 10.1,10.2 & 10.3