Export data dari acces ke excel

Pada Tutorial VB kali ini saya akan membahas tentang cara export data dari excel ke acces database dengan menggunakan fungsi "CopyFromRecordset" yang terdapat pada library Microsoft Excel 12.0 Object Library yang ada pada microsoft office excel 2007.

  1. Buat project baru pada visual basic.
  2. Tambahkan References Microsoft Excel 12.0 Object Library (excel) Microsoft ActiveX Data Object 2.8 Library (Acces).
  3. Tambahkan satu tombol pada form (disini nama untuk tombol biarkan default).
  4. pada form masukan sintaks berikut
Option Explicit
Dim xlsApp As Excel.Application
Dim xlsSheet As Excel.Worksheet
Dim sql As String
Dim cPath As String
Dim sNWind As String
Dim tblid As String
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset

Public Sub test()
cPath = App.Path & "\Filetest.xls" ' disini masukan lokasi file excel yang menjadi target export datanya
sNWind = App.Path & "\Temp2.mdb" 'disini set database yang ingin dijadikan file sumber export data
tblid = "11002" ' masukan nama tabel sasaran
sql = "Select * From " & tblid ' isi merupakan sintaks sql untuk memilih tabel yang menjadi target
Conected sql ' memangil fungsi conected yang degan sql sebagai acuan agar aplikasi dapat berkomunikasi dengan database
Set xlsApp = New Excel.Application
xlsApp.Workbooks.Open cPath
Set xlsSheet = xlsApp.ActiveSheet
xlsSheet.Range("A12:L12").CopyFromRecordset rs ' (A12:L12) merupakan range pada excel yang akan diexport ke acces database
xlsSheet.Range("A12:l12").Cells.EntireColumn.BorderAround xlInsideVertical
xlsSheet.Cells(7, 1).Value = "TEst" ' menambahkan string Test pada cell(7,1)
xlsSheet.Range("j:k").Cells.EntireColumn.NumberFormat = "000"
xlsApp.ActiveWorkbook.SaveAs App.Path & "\" & tblid ' menyimpan file excel dengan nama tabel acces sumber file export
xlsApp.ActiveWorkbook.Close ' menutup workbook yang aktif
xlsApp.Quit ' menutup file excel
rs.Close ' tutup Record source
conn.Close ' tutup koneksi
Set rs = Nothing ' membebaskan memori yang digunakan oleh variable rs
Set cn = Nothing 'membebaskan memori yang digunakan oleh variable cn
Set xlsApp = Nothing 'membebaskan memori yang digunakan oleh variable aplikasi excel
Set xlsSheet = Nothing 'membebaskan memori yang digunakan oleh variable sheet pada excel
End Sub

Public Function Conected(ByVal TmSql As String)' fungsi untuk melakukan koneksi dengan database
Set rs = Nothing
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind & ";Persist Security Info=False;Jet OLEDB"
If cn.State <> adStateOpen Then MsgBox "Maaf, program tidak dapat mengkoneksikan dengan database" & vbNewLine & "pastikan database harus berada di aplikasi directory ", vbExclamation, "Database tidak ditemukan!"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open TmSql, cn, adOpenDynamic, adLockOptimistic
End Function
Private Sub Command1_Click()
Call test ' memangil fungsi test untuk mulai melakukan export data
End Sub

sekian dulu Tutorial VB kali ini, disini penulis hanya memberikan informasi yang penulis ketahui dan apabila ada kesalahan, penulis mohon maaf. happy Codding....=)

3 comments

Gan Mohon Bantuan

coding untuk menambahkan sheet baru, kemudian memberikan nama ke sheet baru yang ditambahkan tadi

thanks before

Reply

Post a Comment