Export Jet Table to Excel worksheet

[coox]

Actually, Joacim, I found a much easier way of doing it:

Sub ExportToExcel()
 Dim myAccess As Access.Application
'**********************************
 Set myAccess = CreateObject("Access.Application")
 With myAccess
  .Visible = False
  .OpenCurrentDatabase ("C:\Data\UKData.mdb")
  .DoCmd.TransferSpreadsheet acExport, 8, "IMP", "C:\Windows\Desktop\Export.xls", True
  .Quit
 End With
 Set myAccess = Nothing
 MsgBox "Exported OK", vbInformation, "Export"
End Sub

The only bummer with this method is that I have to include the Access 8 Object Library with my project, so it gets even bigger to distribute...