Export Data Access ke Excel dengan VBScript

Dari pengalaman pribadi, diminta buat program untuk laporan, tapi karena spesifikasi komputer yg meminta tidak memadai untuk install Crystal Report, maka dengan sedikit akal, gwe menggunakan apa yg sudah ada, yaitu Ms.Excel.

Mungkin bagi oom2 yg udah jago mah ini biasa aja, tp gwe cuma pengen bantu junior2 kite yg masih dlm proses belajar. Ok, kite langsung aja nih....

pertama kita referensikan dulu object library-nya dari menu Project - References, pilih Microsoft Excel 11.0 Object Library.

Selanjutnya kita buat satu buah modul terus kita declare variable XL (ini terserah namanya)
Public XL As Excel.Application
dah, di modulnya itu aja.

Kemudian kita buat fungsi di salah satu form.
misalnya begini:
Karena kita akan memindahkan data dari access ke excel, maka kita harus membuat recordsetnya dulu, ok.
Misalkan koneksi yg aktif adalah CN, kemudian recordsetnya adalah XX (ini variable namanya bebas, yg penting udah pada bisakan bikin koneksi sama recordset).
ok, kita mulai.

Sub masukExcel()
On Error Resume Next '----> biar aman
Dim la,NL,k '----> deklarasiin buat field dan baris baru nantinya.
Dim rs As String

Set XL = CreateObject("excel.application") '---->inisialisasi object excel
XL.Workbooks.Add '---->Add Excel workbook

rs = "select Car, ImpNama, PasokNama, AngkutNama, JmBrg, JmCont, Status from tblpibhdr"
XX.Open rs,CN, adOpenDynamic, adLockOptimistic '---> nah ini recordsetnya.

If Not xx.EOF Then '--> membuat header di Excel
XL.Visible = False '-> sebenernya bisa juga true, jadi kita bisa liat datanya masuk,
With XL.ActiveSheet 'tp klo dalam proses kita klik excelnya malah error, jadi kita buat False aja.
.Cells(1, 1).Value = "CAR" '--> (1,1) maksudnya, di baris 1, kolom A
.Cells(1, 2).Value = "Importir" '--> kalo pengen di baris kedua tinggal ganti aja jadi 2
.Cells(1, 3).Value = "Pemasok" 'misal (2,1) -> maksudnya di baris 2, kolom A
.Cells(1, 4).Value = "Nama Kapal"
.Cells(1, 5).Value = "Jml Brg"
.Cells(1, 6).Value = "Jml Cont"
.Cells(1, 7).Value = "Status"
End With
End If

For k = 1 To xx.Fields.Count
XL.ActiveSheet.Cells(1, k).Font.Bold = True '---> Header dicetak jadi BOLD sebanyak 'k' kolom
Next ' berdasarkan recordset

Set k = Nothing
NL = 2 '---> masuk ke baris ke-2

Do While Not xx.EOF
For la = 0 To xx.Fields.Count - 1 '--> memasukkan data berdasarkan
'mengumpulkan data ke dalam Excel 'jml field di recordset
XL.ActiveSheet.Cells(NL, la + 1).Value = xx.Fields(la)
'Autoformat sheet
XL.ActiveCell.Worksheet.Cells(NL, la + 1).AutoFormat _
xlRangeAutoFormatList2, 0, regular, 3, 1, 1
Next
xx.MoveNext
NL = NL + 1

Loop
xx.Close
XL.Visible = True '--> nah baru kita munculkan excelnya.
End Sub

ok segitu aja dulu, tar klo kebanyakan malah pusing....
mungkin bisa sedikit membantu...
ok saya undur diri dulu, dah malem nih, hampir pagi...

Great posting bang
btw kenapa gak pake fasilitas ms.acces, export external data dari acces ke excel bisa juga khan.....
soalnya gw kagak ngarti programming sich

soalnya di sini gwe ga boleh utak-atik databasenya......
databasenya punya orang...

Great posting bang
btw kenapa gak pake fasilitas ms.acces, export external data dari acces ke excel bisa juga khan.....
soalnya gw kagak ngarti programming sich


ah yang bener aj bang gak bisa program
nah setau saya yg bisa program itu pak hanif

togin wrote:soalnya di sini gwe ga boleh utak-atik databasenya......
databasenya punya orang...

kalo dikopi gak boleh juga mangnya...??
mungkin ngotakngatik gak boleh cuman kalo dilihat isinya aja boleh kalik, khan kalo boleh dilihat tinggal di export aja lgsng

Infect_Brain wrote:
ah yang bener aj bang gak bisa program
nah setau saya yg bisa program itu pak hanif

iya bener, yg bisa program ntu kayak pak hanif contohnya.... nah kalo gw mah gak bisa

ini soalnya database yg di keluarin bea cukai, trus di protek password...

kalo pak hanif ma bukan bisa lagi...udah khatam...

togin wrote:ini soalnya database yg di keluarin bea cukai, trus di protek password...

khan bisa diakalin buwat bukanya, banyak toolsnya make passware juga bisa tuch....tapi kalo dilihat dari kepemilikan filenya rada ngeri juga kita

togin wrote:kalo pak hanif ma bukan bisa lagi...udah khatam...

oh.. udach khatam yach berarti musti baca yasin lagi tuch

togin wrote:ini soalnya database yg di keluarin bea cukai, trus di protek password...

Makanya klo bkn contoh tuh dr database sendiri. Isi asal 2x-an ja. Yg penting da contoh. Jgn ksh db yg dah jadi hak cipta orang. Mahal klo sidang.