Export Table Access Ke Excel dengan VBA

 Untuk mengekspor sebuah tabel di Microsoft Access ke dalam sebuah workbook di Microsoft Excel 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 mengekspor tabel yang ada:

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Set db = CurrentDb

Set rs = db.OpenRecordset("NamaTabel")

Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Sheets(1)

With xlSheet

    .Cells(1, 1).CopyFromRecordset rs

    .Columns.AutoFit

End With

Set xlSheet = Nothing

Set xlBook = Nothing

Set xlApp = Nothing

Set rs = Nothing

Set db = Nothing

Kode di atas akan mengekspor tabel dengan nama "NamaTabel" dari basis data Access yang terbuka saat ini ke dalam sebuah workbook Excel baru. Tabel akan ditampilkan di sheet pertama workbook tersebut. Anda dapat mengganti nama tabel 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: