【发布时间】：2016-02-04 08:18:24
【问题描述】：
我已经尝试了很多代码来完成这个任务，但似乎没有一个可以工作，任何人都可以帮助我解决这个问题吗？
【问题讨论】：
标签： excel ms-access-2007 vba
【发布时间】：2016-02-04 08:18:24
【问题描述】：
通过查看一些在线参考资料自己解决了问题，如果有人需要它，那就是：
将 oApp 调暗为对象
设置 oApp = CreateObject("Access.Application")
oApp.DBEngine.CompactDatabase SourcedDatabase, DestDatabase
杀死 SourcedDatabase
将 DestDatabase 命名为 SourcedDatabase
设置 oApp = 无
【讨论】：