http://www.geocities.com/siliconvalley/grid/2877/


Sub exportarInforme(nomBD As String, nomInforme As String)
Dim apAccess As Object

   Set apAccess = CreateObject("Access.Application")
   apAccess.OpenCurrentDatabase nomBD
   apAccess.DoCmd.OutputTo 3, nomInforme, _
      "Microsoft Excel (*.xls)", "infAccess.xls", True
   apAccess.CloseCurrentDatabase
   apAccess.Quit
   Set apAccess = Nothing

End Sub