【上級】Application.VBEオブジェクトを操作して、VBAコードを動的に生成・修正するリファクタリング支援
レガシーシステムの寿命は、往々にして「保守性の限界」によって決定づけられる。
数百のフォーム、数百万行に及ぶスパゲッティコード。テーブル構造の変更に伴うクエリ名やフィールド名の変更、あるいは共通エラーハンドリングの全モジュールへの一斉適用。これらを人海戦術で乗り切ろうとするのは、エンジニアリングの敗北に他ならない。
Access VBAの真の深淵は、`CurrentDb`やレコードセットの操作だけにあるのではない。
`Application.VBE`オブジェクト。これこそが、VBA自身の手でVBAの構造を書き換えるための禁断にして最強のインターフェースである。
今回は、VBEのオブジェクトモデル（VBProject, VBComponent, CodeModule）を完全に掌握し、巨大なAccessシステムの動的リファクタリングを自動化する極限の知見を授けよう。
—
1. VBE操作の前提条件とセキュリティの罠
プログラムからVBAのコードモジュール（`CodeModule`）を操作するには、VBEの背後にあるCOMコンポーネント群、すなわちMicrosoft Visual Basic for Applications Extensibility 5.3への参照設定が必要だ。
しかし、シニアエンジニアたる者、UIからポチポチと参照設定を追加するなどという迂遠な手法は取らない。さらに、現代のOfficeセキュリティ環境において、この領域に踏み込むには厳格な障壁が存在する。
必須の事前設定（レジストリ・トラストセンター）
1. 「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」 の有効化。
これがオフの場合、プログラムからのVBE操作は実行時エラー `エラー 1004` もしくはそれに準ずるオートメーションエラーとなる。
2. 開発環境でのレジストリ制御、あるいはグループポリシーによるマクロセキュリティの統御。
手動での設定を排除し、コードの堅牢性を担保するため、実行時には必ずエラーハンドリングと参照設定の動的バインド（または事前バインドの確実なチェック）を組み込むこと。
—
2. VBEオブジェクトモデルの構造とメモリの厳格な管理
VBEを操作する際の最大のタブーは、オブジェクトの参照リークとCOM解放の怠慢である。
VBEの階層構造は以下のようになっている。
Application
└─ VBE
└─ VBProjects (ActiveVBProject)
└─ VBComponents (Standard / Class / Form / Document)
└─ CodeModule (Lines / CountOfLines)
これらを巡回・操作する際、暗黙のインスタンス生成や解放漏れが積み重なると、Accessのプロセスがメモリリークを起こし、最悪の場合VBEごとクラッシュする。
以下の実用コードは、全モジュールを走査し、特定のレガシー関数呼び出しを一括で置換・リファクタリングするプロシージャである。オブジェクト変数は必ず局所化し、明示的に`Nothing`を代入してメモリを解放せよ。
—
3. 実装：コードモジュール動的置換エンジン
以下のコードは、指定したAccessファイル（または自身）の全標準・クラスモジュールを走査し、古いデバッグ関数 `Old_LogWrite` を、新世代の構造化ロギング `Enterprise_Log.Write` へ動的に書き換えるリファクタリングスクリプトの完全版である。
‘ 必要な参照設定: Microsoft Visual Basic for Applications Extensibility 5.3
‘ （※早期バインドを使用する場合）
Public Sub ExecuteVBERefactoring()
Dim vbProj As Object ‘ VBProject
Dim vbComp As Object ‘ VBComponent
Dim codeMod As Object ‘ CodeModule
Dim i As Long
Dim lineNum As Long
Dim targetLine As String
Dim replacementCount As Long
‘ ターゲット文字列と置換文字列
Const TARGET_STR As String = “Old_LogWrite”
Const NEW_STR As String = “Enterprise_Log.Write”
On Error GoTo ErrorHandler
‘ セキュリティ設定の事前確認（トラストセンター設定が未許可だとここで落ちる）
On Error Resume Next
Set vbProj = Application.VBE.ActiveVBProject
If Err.Number <> 0 Then
MsgBox “VBAプロジェクトへのアクセスが信頼されていません。” & vbCrLf & _
“[ファイル] > [オプション] > [トラスト センター] から設定を確認してください。”, vbCritical
Exit Sub
End If
On Error GoTo ErrorHandler
replacementCount = 0
‘ プロジェクト内の全コンポーネントをイテレート
For Each vbComp In vbProj.VBComponents
Set codeMod = vbComp.CodeModule
‘ モジュール内にコードが存在する場合のみ処理
If codeMod.CountOfLines > 0 Then
‘ 1行目から最終行まで走査
For i = 1 To codeMod.CountOfLines
targetLine = codeMod.Lines(i, 1)
‘ ターゲット文字列が含まれているか判定（コメント行の除外などもここで制御可能）
If InStr(1, targetLine, TARGET_STR, vbTextCompare) > 0 Then
‘ コメントアウト行（先頭が ‘）の場合はスキップする高度な判定
If Trim$(Left$(targetLine, 1)) <> “‘” Then
‘ 文字列置換の実行
targetLine = Replace(targetLine, TARGET_STR, NEW_STR, 1, -1, vbTextCompare)
‘ 該当行を置換（Linesプロパティは直接書き換えできないため、一度削除して挿入するかReplaceLineを使う）
codeMod.ReplaceLine i, targetLine
replacementCount = replacementCount + 1
End If
End If
Next i
End If
‘ ループ内でのオブジェクト参照の確実な解放
Set codeMod = Nothing
Next vbComp
MsgBox “リファクタリング完了。総置換箇所数: ” & replacementCount, vbInformation, “VBEAutomation”
CleanUp:
‘ 参照の完全解放
Set codeMod = Nothing
Set vbComp = Nothing
Set vbProj = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
Resume CleanUp
End Sub
—
4. チーフアーキテクトが教える「動的コード生成」の極意とリスク管理
プログラムからコードを書き換えるアプローチは、強力無比である一方、一歩間違えばシステム全体の破壊（ロストデータ）に直結する。実戦投入にあたり、以下の鉄則を遵守せよ。
1. 変更前のバックアップの自動化
VBEを操作するスクリプトを走らせる前に、FileSystemObjectを用いて強制的にカレントDBの `.accdb` ファイルのタイムスタンプ付きバックアップを生成するロジックを必ず前置すること。コードのバグによる一括置換の失敗は、ロールバックの手段がない限り致命傷となる。
2. コンパイル状態のプログラム的検証
コードを動的に書き換えた後、VBAプロジェクトに構文エラー（シンタックスエラー）が混入していない保証はない。
VBEオブジェクトモデルでは、直接コンパイルエラーを検知することが難しいため、書き換え後はイミディエイトウィンドウやエラーハンドラのトラップ、あるいは外部の自動テストハーネスと連携して、プロジェクトの整合性を維持する必要がある。
3. イミディエイトな「行番号」と「行数変動」の罠
コードブロック内で `codeMod.InsertLines` や `DeleteLines` を行うと、モジュールの総行数が変動する。
単純なカウンターループ（`For i = 1 To CountOfLines`）内で動的に行数を増減させると、インデックスが狂い、無限ループや予期せぬ箇所の書き換えを引き起こす。
大規模な挿入・削除を行う場合は、必ず「下から上へ（逆順で）」ループを回すか、上のコード例のように行の内容だけを書き換える `ReplaceLine` に留めること。
—
総括
VBAは「おもちゃの言語」ではない。適切な権限と、オブジェクトモデルへの深い理解、そしてメモリ管理の厳格さをもってすれば、エンタープライズレベルの大規模改修すら完全自動化できる極めてスパルタンな開発環境である。
手作業によるリファクタリングという非効率な儀式は、今日をもって終わらせろ。VBAを支配する者こそが、レガシーAccessシステムの運命を握るのだ。
