Export database kita ke Excell

Aku posting judul ini karena ada seseorang yang bertanya gimana cara mengeksport database kita ke MS. Exc*ll dengan sekali klik sehingga bisa di edit lagi dan di cetak menurut selera kita. Sebenarnya udah banyak yang memberikan tutorial sekaligus source codenya. saya di sini hanya mengingatkan sekaligus berbagai buat teman-teman saya. hehe....
Maaf kalau ada yang sama, aku cuma ambil source code ini dari www.pscode.com.
Langsung aja ya silahkan di lanjutkan....

Pertama-tama anda buat database anda entah pakai MS Access atau MySQL. tapi dalam contoh ini saya pakai Access.
kemudian anda hubungkan akses anda dengan visual basic. kalau udah berhasil sekarang silahkan tambah satu command lagi untuk eksport data anda. silahkan di pelajari code dibawah ini:

Private Sub cmdExcell_Click()
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim recArray As Variant
Dim strDB As String
Dim fldCount As Integer
Dim recCount As Long
Dim iCol As Integer
Dim iRow As Integer

Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)

xlApp.Visible = True
xlApp.UserControl = True

fldCount = rsDaftar.RecordCount
For iCol = 1 To fldCount
xlWs.Cells(1, iCol).Value = rsDaftar.Fields(iCol - 1).Name
Next

If Val(Mid(xlApp.Version, 1, InStr(1, xlApp.Version, ".") - 1)) > 8 Then
xlWs.Cells(2, 1).CopyFromRecordset rsDaftar

Else
recArray = rsDaftar.GetRows
recCount = UBound(recArray, 2) + 1
For iCol = 0 To fldCount - 1
For iRow = 0 To recCount - 1
If IsDate(recArray(iCol, iRow)) Then
recArray(iCol, iRow) = Format(recArray(iCol, iRow))
ElseIf IsArray(recArray(iCol, iRow)) Then
recArray(iCol, iRow) = "Array Field"
End If
Next iRow
Next iCol '
xlWs.Cells(2, 1).Resize(recCount, fldCount).Value = _
TransposeDim(recArray)
End If

xlApp.Selection.CurrentRegion.Columns.AutoFit
xlApp.Selection.CurrentRegion.Rows.AutoFit
rsDaftar.Close
Set rsDaftar = Nothing
Set xlWs = Nothing
Set xlWb = Nothing

Set xlApp = Nothing
End Sub

dalam code diatas pemanggil databasenya ada rsdaftar yang merupakan recordset nya.

sekian dulu semoga bermanfaat, kalau masih belum jelas silahkan kasih komentarnya. kalau ada tambahan juga boleh kasih komentarnya.

thank

chung chin