Compactar y reparar

Prueba con:

Sub CompactarMDB()
Dim appAcc As Object
Set appAcc = CreateObject("Access.database")

appAcc.dbengine.compactdatabase "C:\anterior.mdb", "C:ueva.mdb"
Kill "C:\anterior.mdb"
Name "C:ueva.mdb" As "C:\anterior.mdb"

Set appAcc = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Karen M." escribió en el mensaje news:425701c3e3f0$8deb4c50$

Hola Grupo:

Mi pregunta es como hago para compactar una BD de Access
desde un procedimiento VBA de Excel. Manualmente no
tengo problema en hacer esta tarea pero la idea es que
quede automatizada porque va ha ser distribuida a
diferentes usuarios.

Saludos,

Karen

Fernando, muchas gracias por tu respuesta, esto era lo
que necesitaba.

Saludos,

Karen