Messages In This Digest (5 Messages)
- 1a.
- Re: report VB 6.0 dengan Microsoft Excel From: Rama
- 1b.
- Re: report VB 6.0 dengan Microsoft Excel From: Franciscus SOG
- 2a.
- Pivot Table dengan Source Data yang Selalu Diupdate From: dara
- 2b.
- Re: Pivot Table dengan Source Data yang Selalu Diupdate From: Joko Purwanto
- 3a.
- Re: Sederhana Lengkap Detail From: summonery
Messages
- 1a.
-
Re: report VB 6.0 dengan Microsoft Excel
Posted by: "Rama" rama@gudangmas.com ramawibowo_lp3i
Fri Jun 17, 2011 5:15 am (PDT)
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
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
_____
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
- 1b.
-
Re: report VB 6.0 dengan Microsoft Excel
Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit
Fri Jun 17, 2011 5:16 am (PDT)
Dear rama,
Berikut cuplikan coding vb.6.0 export vb2xls sederhana. Menggunakan
module, datagrid. Coding dibuat pada satu form. Koneksi dibuat pada
module.
===================== ========= ========= ========= ========= ===
Option Explicit
Dim MsExcel As Excel.Application
Dim MsWorkbook As Excel.Workbook
Dim a, x, y As Integer
Dim strTarget As String
Sub rowfirst()
RstLook.MoveFirst
a = 6 'dimulai dari row ke 6
x = Val(RstLook.RecordCount) + 5 'dimulai dari row ke 6
End Sub
Private Sub cmdexport_Click()
On Error GoTo errorhandler
With RstLook
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
.Open "SELECT * FROM tblCustomers", Conn, adOpenKeyset, adLockOptimistic
If .RecordCount > 0 Then
Set MsExcel = New Excel.Application
MsExcel.Workbooks.Open App.Path & "\Data Supplier.xls"
MsExcel.Range("A3").Value = "LAST UPDATE TGL " & Format(Now,
"dd-mm-yyyy")
y = 1
rowfirst
Do While a <= x
If Not .EOF Then
MsExcel.Range("A" & a).Value = y
.MoveNext
a = a + 1
y = y + 1
End If
Loop
rowfirst
Do While a <= x
If Not .EOF Then
MsExcel.Range("B" & a).Value = .Fields(1)
.MoveNext
a = a + 1
y = y + 1
End If
Loop
rowfirst
Do While a <= x
If Not .EOF Then
MsExcel.Range("C" & a).Value = .Fields(2)
.MoveNext
a = a + 1
y = y + 1
End If
Loop
rowfirst
Do While a <= x
If Not .EOF Then
MsExcel.Range("D" & a).Value = .Fields(3)
.MoveNext
a = a + 1
y = y + 1
End If
Loop
strTarget = App.Path & "\Data Export Supplier " & Format(Now,
"yyyymmdd") & ".xls"
If Dir(strTarget) <> "" Then
Kill strTarget
MsExcel.ActiveWorkbook.SaveAs FileName:=strTarget ,
FileFormat:=xlNormal
Else
MsExcel.ActiveWorkbook.SaveAs FileName:=strTarget ,
FileFormat:=xlNormal
End If
MsgBox "Export Selesai", vbInformation, "Success.."
MsExcel.Visible = True
End If
End With
Exit Sub
errorhandler:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Call Actcon
With RstSupplier
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
.Open "SELECT * FROM tblCustomers", Conn, adOpenStatic, adLockOptimistic
If .RecordCount > 0 Then
Set dgSupplier.DataSource = RstSupplier
txtjlh.Text = .RecordCount
End If
End With
End Sub
===================== ========= ========= ========= ========= ========
Saya juga bukan master. Mungkin master2 lain mau turun gunung? Semoga membantu.
Blessings,
Fran'z
On 6/17/11, Rama <rama@gudangmas.com > wrote:
> 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
>
>
- 2a.
-
Pivot Table dengan Source Data yang Selalu Diupdate
Posted by: "dara" cygnus_hde226868@yahoo.com cygnus_hde226868
Fri Jun 17, 2011 5:16 am (PDT)
Dear Master Excel..
Saya sedang mengexplore pivot table di excel. sangat membantu pekerjaan saya yg mempunyai source data yg lumayan banyak. Masalahnya, source data saya selalu berubah/bertambah tiap hari tapi hasil di pivot table (penjumlahan nya) tidak update. ada kah caranya agar bisa update (penjumlahan nya) tanpa membuat pivot table yang baru?
terima kasih.
- 2b.
-
Re: Pivot Table dengan Source Data yang Selalu Diupdate
Posted by: "Joko Purwanto" djoko.exclnt@gmail.com djoko_exclnt
Fri Jun 17, 2011 6:45 am (PDT)
untuk source data pilih kolomnya saja tanpa dibatasi jumlah row(see
Attachment), ketika bertambah datanya tinggal klik kanan pivot n refresh.
semoga membantu
Pada 17 Juni 2011 15:14, dara <cygnus_hde226868@yahoo.com > menulis:
> **
>
>
> Dear Master Excel..
>
> Saya sedang mengexplore pivot table di excel. sangat membantu pekerjaan
> saya yg mempunyai source data yg lumayan banyak. Masalahnya, source data
> saya selalu berubah/bertambah tiap hari tapi hasil di pivot table
> (penjumlahan nya) tidak update. ada kah caranya agar bisa update
> (penjumlahan nya) tanpa membuat pivot table yang baru?
>
> terima kasih.
>
>
>
- 3a.
-
Re: Sederhana Lengkap Detail
Posted by: "summonery" summonery@yahoo.com summonery
Fri Jun 17, 2011 5:16 am (PDT)
dengan bantuan UDF, mau?
ikuti langkah berikut:1. Alt + F112. Alt + I + M3. Copy paste code
berikut:
Function mbps(r As Range, x)'anton suryadi, 17/Juni/2011 t =
Split(r.Text, "/") mbps = Evaluate(t(x - 1))End Function
4. penggunaan:=mbps(A2,1) menghasilkan akumulasi megabytes
saja=mbps(A2,2) menghasilkan akumulasi second saja
>semoga bermanfaat
--- In XL-mania@yahoogroups.com , RaKa Mardika <subend05@...> wrote:
>
> Dear XL-Mania's,
>
> Kondisi yang ada:
>
> A1 berisi data "[megabytes/second]", misalkan "122236/225" yang
berarti sebesar 122236 megabytes selama 225 second.
>
>
> B1 berisi data "megabytes" saja, formula
"=IF(ISBLANK(A1),"",LEFT( A1,FIND(" /",A1,1)- 1))"
>
> C1 berisi data "second" saja, formula
"=IF(ISBLANK(A1),"",RIGHT( A1,LEN(A1) -FIND("/" ,A1,1)))"
>
> Ternyata ada kebutuhan:
>
> A2 berisi data "[megabytes/second]" yang tidak sendiri, misalkan
"524582+122236/915+225" yang berarti sebesar 524582 dan 122236 megabytes
selama 915 dan 225 second.
> B2 berisi data akumulasi "megabytes" saja, menggunakan formula apakah?
>
> C2 berisi data akumulasi "second" saja, menggunakan formula apakah?
>
> Terima kasih atas perhatian dan solusi segera.
>
> Kind Regards,
> r4k4
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
+-:: 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 |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar