macro para abrir fichero acces

Hola Wido

este ejemplo deberá servirte

Dim acApp as object, _
strArchivo as string
strArchivo = "NombreArchivoConRuta"

' creo un objeto Access
Set acApp = CreateObject("Access.Application")
acApp.Visible = True

' abro la base de datos
acApp.OpenCurrentDatabase strArchivo

' ejecuto el procedimiento
acApp.[Forms].[frmCalcular].AutoArranque

' cierro y salgo
acApp.Quit

Set acApp = Nothing



Saludos a desde Huelva

Emilio
miliu56 ARROBA hotmail.com

"wido" escribió en el mensaje
news:br5lk6$29647c$

Es posible crear una macro que abra y cierre un fichero de acces?

Gracias