Export semua tabel di Access 2007 ke Excel 2007

Jika kita memiliki beberapa tabel di access 2007 yang akan kita export ke 1 file excel 2007 (satu tabel akan menjadi worksheet tersendiri) kita bisa gunakan code dibawah ini

Sub Export2Excel2007()
    Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
        If tbl.Attributes = 0 Then
            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, tbl.Name, "d:\Book2.xlsx", True, tbl.Name
        End If
    Next
End Sub

Keterangan :

1. File Excel "d:\Book2.xlsx" harus kita buat terlebih dahulu
2. Jangan lupa close file excel diatas
3. semua tabel akan diexport tanpa terkecuali

Code diatas bisa lebih dikembangkan dilain waktu