Import data dari website ke table access menggunakan VBA
Untuk mengimport data dari sebuah website 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 ie As Object
Set db = CurrentDb
Set rs = db.OpenRecordset("NamaTabel")
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://www.NamaWebsite.com"
Do Until ie.ReadyState = 4
DoEvents
Loop
rs.AddNew
rs!NamaKolom1 = ie.document.getElementById("NamaElemen1").innerText
rs!NamaKolom2 = ie.document.getElementById("NamaElemen2").innerText
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing
ie.Quit
Set ie = Nothing
Kode di atas akan mengimport data dari website dengan alamat "http://www.NamaWebsite.com", dan menambahkan data tersebut ke dalam tabel dengan nama "NamaTabel" di basis data Access yang terbuka saat ini. Anda dapat mengganti nama tabel dan alamat website sesuai dengan kebutuhan Anda. Juga, Anda perlu mengganti nama elemen di website yang akan diambil datanya (NamaElemen1 dan NamaElemen2 pada kode di atas) sesuai dengan elemen yang ada di website tersebut.
Sebagai catatan, Anda perlu mengimport modul DAO sebelum menggunakan kode di atas. Caranya adalah dengan mengklik tombol "References" di "Database Tools" ribbon, kemudian mencari dan mencentang modul DAO.
Selamat mencoba!
0 Response to "Import data dari website ke table access menggunakan VBA"
Post a Comment