Access - Access9, ejecutar macro

Dim objAccess As Object

Dim objDatabase As Object

' Crea una instancia de Access

Set objAccess = CreateObject("Access.Application")

' Abre la base de datos especificada

Set objDatabase = objAccess.DBEngine.OpenDatabase("ruta de la base de datos")

' Ejecuta la macro especificada

objAccess.DoCmd.RunMacro "nombre de la macro"

' Cierra la base de datos y Access

objDatabase.Close

objAccess.Quit

' Libera la memoria utilizada por los objetos

Set objDatabase = Nothing

Set objAccess = Nothing