Koding Import Data Dari Excel Menggunakan VBA Access

 Untuk mengimport data dari Microsoft Excel ke Microsoft Access menggunakan Visual Basic for Applications (VBA), Anda dapat menggunakan kode seperti ini:

Sub ImportData()

    'Deklarasikan variabel

    Dim strFileName As String

    Dim strSQL As String

    'Tentukan nama file Excel yang akan diimport

    strFileName = "C:\LokasiFile\NamaFile.xlsx"

    'Buat query SQL untuk mengimport data ke tabel

    strSQL = "INSERT INTO NamaTabel (Kolom1, Kolom2, Kolom3) " & _

             "SELECT Kolom1, Kolom2, Kolom3 FROM " & _

             "[Excel 12.0 Xml;HDR=YES;DATABASE=" & strFileName & "].[Sheet1$]"

    'Jalankan query SQL

    CurrentDb.Execute strSQL

End Sub

Anda dapat mengganti NamaTabel dan NamaFile sesuai dengan nama tabel dan file Excel yang ingin Anda import. Selain itu, pastikan Anda mengganti Kolom1, Kolom2, dan Kolom3 dengan nama kolom yang ingin Anda import. Jika Anda ingin mengimport semua kolom, Anda dapat mengganti query SQL menjadi INSERT INTO NamaTabel SELECT * FROM [Excel 12.0 Xml;HDR=YES;DATABASE=strFileName].[Sheet1$].

Terimakasih

Tweet

Subscribe to receive free email updates: