請問如何用EXCEL VBA 壓縮及修護 .accdb

這是我找到的方法，但是需安裝 ACCESS 2007
請教各位大大是否有其他方式?(不需安裝 ACCESS 2007)
謝謝

'設定引用項目 Microsoft Access X.X Object Library
Dim objAcc As New Access.Application
Call objAcc.CompactRepair("D:\原資料庫.accdb, "D:\TEMP.LTC", False)
Kill "D:\原資料庫.accdb" '刪除舊資料庫
Name "D:\TEMP.LTC" As "D:\原資料庫.accdb" '變更資料庫名稱及位置