Coding Export Data Ke Excel Menggunakan Access VBA

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

Sub ExportData()

    'Deklarasikan variabel

    Dim db As Database

    Dim rs As Recordset

    Dim strSQL As String

    Dim strFileName As String

    'Buat objek database dan recordset

    Set db = CurrentDb

    Set rs = db.OpenRecordset("NamaTabel")

    'Buat query SQL untuk mengambil data dari tabel

    strSQL = "SELECT Kolom1, Kolom2, Kolom3 FROM NamaTabel"

    'Tentukan nama file Excel yang akan dihasilkan

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

    'Ekspor data ke Excel

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strSQL, strFileName, True

End Sub

Anda dapat mengganti NamaTabel dan NamaFile sesuai dengan nama tabel dan file Excel yang ingin Anda buat. Selain itu, pastikan Anda mengganti Kolom1, Kolom2, dan Kolom3 dengan nama kolom yang ingin Anda ekspor. Jika Anda ingin mengekspor semua kolom, Anda dapat mengganti query SQL menjadi SELECT * FROM NamaTabel.

 

Tweet

Subscribe to receive free email updates: