Abah Adilah Ngeblog

‘ metode yang dapat meng-export isi dari suatu table dalam format excel

‘ urutan hasil export akan sesuai dengan urutan struktur tablenya

‘ tablename adalah nama table yang akan diexport dalam format excel

Public Sub ExportToExcel(tablename As String)
    Dim dlg As Office.FileDialog
    Dim vrtSelectedItem As Variant

    Set dlg = Application.FileDialog(msoFileDialogSaveAs)
    dlg.Title = “Save as…”
    dlg.InitialFileName = tablename & “.xls”
    If dlg.Show = -1 Then
        For Each vrtSelectedItem In dlg.SelectedItems
            DoCmd.OutputTo acOutputTable, tablename, acFormatXLS, vrtSelectedItem
        Next
    End If

    Set dlg = Nothing
End Sub

Contoh pemanggilan metodenya:

ExportToExcel(”Employee”)