■参考URL： Excel VBA を学ぶなら moug モーグ | 即効テクニック | 閉じているデータベースを最適化してコピーする(DAO) ■ 構文：DBEngine.CompactDatabase olddb, newdb, locale, options, password Sub 最適化() Dim targetDbPath As String Dim destDbPat…