压缩外部Access（.accdb）数据库

Question

我已经尝试了很多代码来执行此任务，但似乎没有任何代码能够正常工作，任何人都可以帮我解决这个问题吗？

Answer 1

通过查看一些在线参考来解决自己的问题，如果有人需要它，那就是：

Dim oApp As Object

设置oApp = CreateObject（“Access.Application”）

oApp.DBEngine.CompactDatabase SourcedDatabase，DestDatabase

杀死SourcedDatabase

将名称DestDatabase命名为SourcedDatabase

设置oApp = Nothing