Access VBAを掌握する極限の知見：VBEオブジェクトモデルによるコード自動リファクタリングの極意
長年、数百万行規模のレガシーなAccessシステムと対峙してきたアーキテクトであれば、誰もが一度は絶望する瞬間がある。
「システム全体に散らばる、数十年放置された共通関数の命名規則を変更する」
「特定の非推奨メソッドを一括で別の実装に置き換える」
手作業による置換など、ヒューマンエラーの温床であり、エンジニアの労力の無駄遣いだ。Accessには、VBE（Visual Basic Editor）をプログラムから制御するための強大なオブジェクトモデルが標準で備わっている。これを使えば、VBA自身にVBAのコードを解析・置換させることが可能だ。
今回は、`Application.VBE` オブジェクトを極限まで使い倒し、モジュール内のコードを安全かつ高速に検索・置換するリファクタリング支援ツールの実装アプローチを解説する。
—
1. VBE操作の前提と「信頼性」の罠
`Application.VBE` を操作するにあたり、まず突破しなければならないのがセキュリティの壁である。
現代のAccess環境（Office 365 / Access 2016以降）において、デフォルトの状態ではプログラムからVBEのコードモジュール（VBComponent）へのアクセスは厳格にブロックされている。
必須の事前設定
ツールを稼働させる前に、Accessのオプションで以下の設定が必須となる。
1. 「ファイル」>「オプション」>「トラスト センター」>「トラスト センターの設定」を開く。
2. 「マクロの設定」において、「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」にチェックを入れる。
これがプログラマティックに行えない以上、エンタープライズ環境への展開ではグループポリシー（GPO）やインストーラーでのレジストリ制御が前提となる。この現実をまず押さえておく必要がある。
—
2. メモリリークとCOMコンポーネントの厳格な解放
VBEオブジェクトモデル（`VBIDE`ライブラリ）を扱う際、最も多くの開発者が陥る罠がCOMオブジェクトの解放漏れによるVBEのフリーズやAccessのクラッシュである。
`Application.VBE` から `VBProjects`、`VBComponents`、`CodeModule` と階層を下っていくと、背後で無数のCOMラッパーオブジェクトが生成される。これらを適切なスコープ管理と明示的な `Nothing` 代入で解放しないと、VBEのインスタンスがメモリ上に残留し、最悪の場合はAccessごと強制終了する。
以下の実装コードでは、その極限のライフサイクル管理を示す。
—
3. 実装：VBEコード一括検索・置換エンジン
以下のコードは、指定したAccessファイル（または現在実行中のファイル）内の全標準モジュール、クラスモジュール、フォーム/レポートのコードモジュールを走査し、正規表現を用いて文字列の置換を行うプロフェッショナル向けの実装である。
事前に `VBE` を操作するため、VBEの参照設定（`Microsoft Visual Basic for Applications Extensibility 5.3`）を追加しておくこと（または遅延バインディングで実装するが、今回はコードの明瞭性を優先し早期バインディングを前提とする）。
Option Compare Database
Option Explicit
‘ =========================================================================
‘ 模範的リファクタリング支援ツール：VBEコード一括置換エンジン
‘ Architecture Note:
‘ COMオブジェクトの参照連鎖を断ち切るため、ループ内での変数の使い回しを避け、
‘ 取得したオブジェクトは必ず個別の変数に格納して明示的に解放する。
‘ =========================================================================
Public Sub ExecuteVBERefactoring()
Dim targetProj As VBIDE.VBProject
Dim compColl As VBIDE.VBComponents
Dim vbComp As VBIDE.VBComponent
Dim codeMod As VBIDE.CodeModule
Dim targetString As String
Dim replacementString As String
‘ 検索・置換ワードの設定（例：レガシーな関数名を新仕様へ変更）
targetString = “OldFunctionName”
replacementString = “New_Core_FunctionName”
‘ 実行確認
If MsgBox(“VBEコード内の ‘” & targetString & “‘ を ‘” & replacementString & “‘ に一括置換しますか？” & vbCrLf & _
“※事前に必ずバックアップを取ってください。”, vbYesNo + vbCritical, “VBEリファクタリング”) <> vbYes Then
Exit Sub
End If
On Error GoTo ErrorHandler
‘ 1. カレントプロジェクトの取得
Set targetProj = Application.VBE.ActiveVBProject
‘ 2. 保護チェック（パスワード保護されている場合は処理不能）
If targetProj.Protection = vbext_pp_locked Then
MsgBox “対象のVBAプロジェクトはパスワードで保護されています。”, vbCritical, “アクセス拒否”
Exit Sub
End If
Set compColl = targetProj.VBComponents
Dim totalReplacedCount As Long
totalReplacedCount = 0
‘ 3. コンポーネントコレクションの走査
For Each vbComp In compColl
Set codeMod = vbComp.CodeModule
‘ コードモジュールが存在するか確認（フォーム等でコードがない場合もある）
If codeMod.CountOfLines > 0 Then
Dim replaced As Long
replaced = ReplaceTextInCodeModule(codeMod, targetString, replacementString)
totalReplacedCount = totalReplacedCount + replaced
End If
‘ ループ内での個別コンポーネント解放
Set codeMod = Nothing
Set vbComp = Nothing
Next vbComp
MsgBox “リファクタリング完了。合計 ” & totalReplacedCount & ” 箇所を置換しました。”, vbInformation, “完了”
CleanUp:
‘ 4. 厳格なメモリ解放（参照カウントのデクリメント）
Set codeMod = Nothing
Set vbComp = Nothing
Set compColl = Nothing
Set targetProj = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ =========================================================================
‘ 個別CodeModuleに対する行単位の置換処理とメモリ安全性の確保
‘ =========================================================================
Private Function ReplaceTextInCodeModule(ByRef codeMod As VBIDE.CodeModule, ByVal target As String, ByVal replacement As String) As Long
Dim startLine As Long
Dim numLines As Long
Dim lineText As String
Dim i As Long
Dim replaceCount As Long
replaceCount = 0
startLine = 1
numLines = codeMod.CountOfLines
If numLines <= 0 Then
ReplaceTextInCodeModule = 0
Exit Function
End If
' VBEのバッファI/Oを最適化するため、行単位で走査
For i = startLine To numLines
lineText = codeMod.Lines(i, 1)
' 大文字小文字を区別しない置換を行う場合は InStr等で調整
If InStr(1, lineText, target, vbTextCompare) > 0 Then
‘ 単純な置換（必要に応じて正規表現エンジン VBScript.RegExp をここに統合する）
Dim newLineText As String
newLineText = Replace(lineText, target, replacement, 1, -1, vbTextCompare)
‘ コードモジュールの該当行を書き換え
codeMod.ReplaceLine i, newLineText
replaceCount = replaceCount + 1
End If
Next i
ReplaceTextInCodeModule = replaceCount
End Function
—
4. チーフアーキテクトが教える「現場の知見」とリスクヘッジ
上記のコードは美しく機能するが、実際の現場でこれを運用するには、いくつかの「修羅場を潜り抜けた者だけが知る知見」が必要となる。
A. コメントや文字列リテラル誤爆の防御
単純な文字列置換を行うと、コード内のコメントアウトされた部分や、ログ出力用の文字列リテラルまで書き換わってしまう。
これを防ぐためには、上記の `ReplaceTextInCodeModule` 内で、行の先頭が `’` で始まっていないか、あるいはコード中の文字列（`”` で囲まれた範囲）の外側にターゲットが存在するかを判定する簡易パーサー、もしくは本格的な VBScript.RegExp（正規表現）オブジェクト を組み合わせる必要がある。
‘ 正規表現による厳密な単語単位の置換例（VBScript.RegExpの活用）
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
regEx.Pattern = “\b” & target & “\b” ‘ 単語境界(Word Boundary)を指定
regEx.IgnoreCase = True
regEx.Global = True
If regEx.Test(lineText) Then
newLineText = regEx.Replace(lineText, replacement)
codeMod.ReplaceLine i, newLineText
replaceCount = replaceCount + 1
End If
Set regEx = Nothing
この `\b`（単語境界）の概念を導入するだけで、意図しない部分文字列の誤置換リスクを劇的に低減できる。
B. トランザクションとロールバックの限界
データベースの操作であれば `Rollback` が使えるが、VBEのモジュール書き換えにはネイティブなロールバック機構が存在しない。
そのため、このツールを実行する前の鉄則は以下の通りである。
1. ファイルシステムレベルでの `.accdb` の完全バックアップ（タイムスタンプ付き）の自動生成。
2. 実行前の自動エクスポート（全モジュールを `.bas` / `.cls` としてローカルディレクトリに吐き出すセーフティネットの実装）。
—
5. 総括
Access VBAは「レガシー」と揶揄されがちだが、その内部構造はOfficeのCOMアーキテクチャと深く結合しており、適切に扱えばモダンな言語に匹敵するメタプログラミングが可能である。
`Application.VBE` を手懐けることは、数万行のスパゲッティコードと化した巨大Accessシステムを支配下に置くことに他ならない。手作業によるリファクタリングという名の苦行から脱却し、コードでコードを制する高度な自動化アーキテクチャを、あなたのシステムにも取り入れてほしい。
