Re: ]] XL-mania [[ report VB 6.0 dengan Microsoft Excel

 

Saya bukan master, sambil menunggu penjlazzan dari para fakar-nya..

kalau kita dari VB mauk main-main dengan excel, katanya, referensi pustaka MS Excel

musti kudu harus ditambahkan dulu ke dalam project anda.

Secara manual 'kan tinggal :

Klik Project (pada menu bar) > References > muncul dialogbox References

Aktifkan kotak checklist : Microsoft Excel 12.0 Object Library 

( atau MS Excel 12.0 / tergantung versi excel yg tersedia di pc anda)

Nantinya harus dibuat variable object yg mewakili Excel, Workbook dan Worksheetnya,

misalnya

Dim XLApl, XlBook, XLSheet

Set XLApl = New Excel.Application

Set XLBook = XLApl.Workbook.Add

Set XLSheet = XLBook.Worksheet(1)

setelah di tingkat itu kita dapat mengakses cell di excel misal

With XLSheet

baris = 5

If Not ado_karyawan.Recordset.BOF Then

   ado_karyawan.Recordset.MoveFirst

   While Not ado_karyawan.Recordset.EOF

      .cells(baris, 1) = ado_karyawan.Recordset!Kode

      .cells(baris, 2) = ado_karyawan.Recordset!Nama

      .cells(baris, 3) = ado_karyawan.Recordset!Divisi

      baris = baris + 1

      ado_karyawan.Recordset.MoveNext

   When

End if

End WIth

XLBook.SaveAs "D:\datakaryawanBlaBlaBla.xls"

dst, katanya sih begitu...

Banyak lho contoh contoh di internet, antara lain coba dilihat-lihat dulu

http://www.dreamincode.net/forums/topic/211446-excel-worksheet-and-vb60/

http://www.dreamincode.net/forums/topic/190755-vb6-datagrid-to-excel/

http://en.allexperts.com/q/Visual-Basic-1048/Excel-Generation-1.htm

CMIIW, maaf kalao cuma VB kelas teri-terian...

2011/6/17 Rama <rama@gudangmas.com>

Dear para master Xl ….

Saya rama,

Ada yg punya contoh program sederhana vb6.0 yg reportnya pakai excel ??

Saya mau buat program Invoice yg reportnya langsung pakai excel …

Mohon bantuannya ya para master  ☺☺☺

B' Regard's

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 85

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___