How to export all tables from an Access Database into Excel - A sheet for each table

Question

I have an Access database with ~30 tables.

How can I export all 30 tables into separate sheets in an Excel workbook?

I\'m hoping to find some VBA/VBS code which

Answer 1

Here's the full module I used.

Sub expotT()
 Dim td As DAO.TableDef, db As DAO.Database
 Set db = CurrentDb()
 For Each td In db.TableDefs
    If Left(td.Name, 4) <> "msys" Then
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
    td.Name, "C:\xExcelTables.xls", True, td.Name
    End If 
Next
End Sub