Maturnuhun Om STDEV(i),
Selama ini saya buat reportnya dengan menggunakan crystal report. Tetapi tidak semua PC di kantor terinstall program ini
Oleh karena itu si bos minta langsung pake excel aja (karena setiap PC pasti terinstall Office)……
Terima kasih atas pencerahannya, saya akan coba praktekan.
B' Regard's
Rama
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of STDEV(i)
Sent: Friday, June 17, 2011 10:30 AM
To: XL-mania@yahoogroups.com
Subject: 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
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
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1382 / Virus Database: 1513/3708 - Release Date: 06/16/11
| 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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário