2015-11-04 66 views

回答

0

解決了看一些網上的參考問自己,如果有人在這裏需要它,它是:

昏暗oApp作爲對象

設置oApp =的CreateObject( 「Access.Application」)

oApp .DBEngine.CompactDatabase SourcedDatabase,DestDatabase

殺SourcedDatabase

名稱DestDatabase作爲SourcedDatab ase

Set oApp = Nothing