Import data from excel to access VBA

 Untuk mengimport data dari sebuah workbook di Microsoft Excel ke dalam sebuah tabel di Microsoft Access menggunakan Visual Basic for Applications (VBA), pertama-tama Anda harus membuka modul VBA di Access. Caranya adalah dengan mengklik tombol "Modules" di "Database Tools" ribbon. Kemudian, tambahkan kode berikut untuk mengimport data:

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Set db = CurrentDb

Set rs = db.OpenRecordset("NamaTabel")

Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Open("C:\NamaFile.xlsx")

rs.AddNew

rs!NamaKolom1 = xlBook.Sheets(1).Cells(1, 1)

rs!NamaKolom2 = xlBook.Sheets(1).Cells(1, 2)

rs.Update

rs.Close

Set rs = Nothing

Set db = Nothing

xlBook.Close

Set xlBook = Nothing

xlApp.Quit

Set xlApp = Nothing

Kode di atas akan mengimport data dari file Excel dengan nama "NamaFile.xlsx" yang terletak di folder C:, dan menambahkan data tersebut ke dalam tabel dengan nama "NamaTabel" di basis data Access yang terbuka saat ini. Anda dapat mengganti nama tabel, nama file, dan lokasi file sesuai dengan kebutuhan Anda.

Sebagai catatan, Anda perlu mengimport modul DAO dan Excel sebelum menggunakan kode di atas. Caranya adalah dengan mengklik tombol "References" di "Database Tools" ribbon, kemudian mencari dan mencentang modul DAO dan Excel.

Selamat mencoba! 

Tweet

Subscribe to receive free email updates: