AccessやAccess Runtimeを使わずにmdbファイル、accdbファイルを最適化する

DAO.DBEngine　というライブラリを使うと、AccessやAccessランタイムがインストールされていないPCからでもとても簡単にmdbファイルやaccdbファイルを最適化することができます。

異なる3つの形式で試してみたところ、全てあっけないくらい簡単に最適化ができました。下記はそのテストに使ったソースコードです。

下準備として、まずは最適化したいmdb/accdbファイルを用意し、Excelファイルと同じフォルダに入れて下さい。

ExcelのVBEで標準モジュールを追加し、下記のコードを貼り付けて使って下さい。

ソースコードの青字部分は対象ファイルの名前に変更してください。　

また、CreateObject("DAO.DBEngine.36")　の部分は、PCにインストールされているDAO.DBEngineのバージョンに合わせて書き換えて下さい。

ソースコード

Public Sub compactAccess() 'MDB （Access 97形式） Dim DB97old As String: DB97old = ThisWorkbook.Path & "\" & "DB97.mdb" Dim DB97new As String: DB97new = ThisWorkbook.Path & "\" & "DB97new.mdb"

　'MDB （Access 2000形式） Dim DB2003old As String: DB2003old = ThisWorkbook.Path & "\" & "DB2003.mdb" Dim DB2003new As String: DB2003new = ThisWorkbook.Path & "\" & "DB2003new.mdb"

　'ACCDB （Access 2007以降） Dim DB2007old As String: DB2007old = ThisWorkbook.Path & "\" & "DB2007.accdb" Dim DB2007new As String: DB2007new = ThisWorkbook.Path & "\" & "DB2003new.accdb"

　Dim DBE1 As Object, DBE2 As Object 'dao360.dll　　　mdb (Access 97形式含む) にだけ対応 Set DBE1 = CreateObject("DAO.DBEngine.36") 'acedao.dll accdb および mdb (Access 97形式除く) に対応 Set DBE2 = CreateObject("DAO.DBEngine.120")

'最適化 'MDB （Access 97形式） DBE1.CompactDatabase DB97old, DB97new 'MDB （Access 2000形式） DBE1.CompactDatabase DB2003old, DB2003new 'ACCDB （Access 2007以降） DBE2.CompactDatabase DB2007old, DB2007new End Sub