Ambil data dari Ms. Access ke Ms. Excell

Pagi-pagi terinspirasi untuk membuat laporan dengan media excell, tapi ga mau repot copy-paste dari ms. access ke excell. hal ini bisa buat data jadi ga up to date pastinya. Begini caranya :

1. Bisa dengan menggunakan koneksi data dr excell ke access melalui coding-coding sedikit di VB editornya excell
2. Bisa menggunakan fasilitas Import External Data -> Import data
3. Atau bisa juga dengan membuat query lagi dari database luar untuk di import di excell

Nah kita coba bahas satu persatu ya..

CODING

Dengan coding ini maksudnya, kita menuliskan sedikit code vb di VB editor yang disediakan oleh excel. Caranya :

• Buka ms. Excell kita dulu, kalau ga dibuka ga jadi deh. 😀
• Kemudian tekan Alt + F11, akan muncul window VB
• Selanjutnya klik Insert -> Modul
• Lalu tuliskan code sot berikut :

Public Sub AmbilKoneksi(ByRef dbcon As ADODB.Connection, ByRef dbrs As ADODB.Recordset, strSQL As String, dbfile As String, strUserName As String, strPwd As String)
    Set dbcon = New ADODB.Connection
    dbcon.Open “PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=” & dbfile & “;”, strUserName, strPwd
    Set dbrs = New ADODB.Recordset
    dbrs.Open strSQL, dbcon
End Sub
 
Public Sub CopyDariNorthwindMDB()
    Dim adoconn As ADODB.Connection
    Dim adors As ADODB.Recordset
    Dim strSQL As String
    Dim AlamatFile As String
    ‘Ngopi seluruh record di table Products:
    ‘Kode SQL ini hanya contoh aja:
    strSQL = “Select * from training”
    ‘Isi alamat filenya disini:
    AlamatFile = “\\server\data\TRAINING RPT.mdb”
    Call AmbilKoneksi(adoconn, adors, strSQL, AlamatFile, “”, “”)
    Dim xlsht As Excel.Worksheet
    Set xlsht = Sheets(“Sheet1”)
    xlsht.Range(“A1”).CopyFromRecordset adors
    adors.Close
    adoconn.Close
    Set adors = Nothing
    Set adoconn = Nothing
    Set xlsht = Nothing
End Sub

• Kemudian klik Tools -> Reference
• Kemudian Anda pilih (beri tanda check list) Microsoft Activex Data Objects 2.0 Library. Atau bisa pilih 2.1 ; 2.2 dst.
• Kemudian klik OK
• Selanjutnya kita tinggalkan si window VB Editor. Kita masuk ke Window worksheet excell
• Setelah itu tekan Alt + F8. Kemudian pilih “CopyDariNorthWindMDB”
• Kemudian klik run

Nah Anda bisa lihat deh hasilnya di Sheet Anda sudah tampil data yang Anda inginkan.

Untuk 2 bahasan berikutnya dilanjutkan besok ya…mau pulang dulu neeh..

 

-Wassalam-

-Dewi-