Accessの深淵を覗く：VBEオブジェクトを用いたメタプログラミングによるコード資産の可視化
Access開発の現場で、ドキュメントの欠如は最大の「技術的負債」である。数年前に構築されたレガシーシステムにおいて、何千行ものモジュールから仕様を読み解く作業は、まさに暗闇の洞窟を松明なしで歩くようなものだ。
我々プロフェッショナルは、コードを「書く」だけでなく、コードを「解析する」ためのコードを書かなければならない。今回は、VBE（Visual Basic Editor）オブジェクトモデルを直接操作し、全プロシージャ名とその引数を抽出してExcelへ掃き出す、極限のコード解析エンジンを構築する。
1. 準備：信頼と権限の確保
VBEオブジェクトを操作するには、プロジェクトの参照設定が必須だ。また、セキュリティ設定で「VBAプロジェクト オブジェクト モデルへのアクセスを信頼する」を有効にする必要がある。これはシステム管理者として、開発環境においては避けて通れない聖域への鍵である。
- 参照設定: `Microsoft Visual Basic for Applications Extensibility 5.3`
2. メタプログラミングの核心：CodeModuleの解析
VBEの `VBComponents` と `CodeModule` を走査することで、静的解析を行う。ここで重要なのは、VBAの `CodeModule.Lines` プロパティを使って行単位で抽出する際、メモリ消費を最小限に抑えることだ。無駄な文字列結合は避け、必要な情報のみを即座にパースする。
以下のコードは、全モジュールのプロシージャ名と引数を取得するエンジンの心臓部である。
‘ 伝説的な解析ツール：VBAコード資産抽出エンジン
Option Explicit
Public Sub ExportProcedureListToExcel()
Dim vbProj As VBIDE.VBProject
Dim vbComp As VBIDE.VBComponent
Dim vbMod As VBIDE.CodeModule
Dim i As Long, startLine As Long
Dim procName As String, procKind As vbext_ProcKind
Set vbProj = Application.VBE.ActiveVBProject
‘ 新規Excelワークブックをメモリに展開
Dim xlApp As Object
Set xlApp = CreateObject(“Excel.Application”)
xlApp.Visible = True
Dim ws As Object
Set ws = xlApp.Workbooks.Add.Sheets(1)
ws.Cells(1, 1).Value = “モジュール名”
ws.Cells(1, 2).Value = “プロシージャ名”
ws.Cells(1, 3).Value = “行数”
Dim rowIdx As Long: rowIdx = 2
‘ モジュールを走査（メモリ最適化を考慮し、参照を明示的に管理）
For Each vbComp In vbProj.VBComponents
Set vbMod = vbComp.CodeModule
i = vbMod.CountOfDeclarationLines + 1
Do While i < vbMod.CountOfLines procName = vbMod.ProcOfLine(i, procKind) ' プロシージャの開始行を特定して重複抽出を回避 If i = vbMod.ProcStartLine(procName, procKind) Then ws.Cells(rowIdx, 1).Value = vbComp.Name ws.Cells(rowIdx, 2).Value = procName ws.Cells(rowIdx, 3).Value = vbMod.ProcCountLines(procName, procKind) rowIdx = rowIdx + 1 i = i + vbMod.ProcCountLines(procName, procKind) Else i = i + 1 End If Loop Next vbComp ' オブジェクトの明示的解放（メモリリークは許されない） Set vbMod = Nothing Set vbComp = Nothing Set vbProj = Nothing End Sub
3. シニアエンジニアが意識すべき「メモリの重み」
上記のコードで特筆すべきは、`ProcOfLine` と `ProcStartLine` の活用である。多くの初学者は正規表現を用いてコードをパースしようとするが、VBEオブジェクトモデル自体が提供するメソッドを使う方が遥かに高速で、かつ確実だ。
また、大規模なAccessシステムでは、`VBE` オブジェクトへのアクセスがメモリ負荷を増大させる。以下の鉄則を守ること。
1. 参照の明示的解放: `Set obj = Nothing` は儀式ではない。循環参照の可能性を絶つための防御壁である。
2. 型指定の徹底: `Object` 型の使用は、コンパイル時のチェックを放棄する行為に等しい。可能な限り `VBIDE.VBProject` などの具体的な型を指定し、早期バインディング（Early Binding）を行うことで実行速度を最適化せよ。
3. 例外処理の構造化: 解析対象のモジュールが破損している場合、`CodeModule` へのアクセスで `Run-time error 424` が発生する可能性がある。必ず `On Error Resume Next` を適切に制御し、エラー発生箇所をログに残す実装を怠るな。
4. 総括：レガシーを掌握する者へ
このツールは、単なるドキュメント生成器ではない。あなたの組織の「コードの地図」である。システム改修の際、どのプロシージャがどこに依存しているのかを瞬時に把握できることは、バグ混入リスクを劇的に低下させる。
VBAはレガシーと言われて久しい。しかし、その内部構造を掌握し、APIを通じて制御する技術は、現代のどのプログラミング言語にも通じる普遍的なスキルだ。道具に支配されるな。道具を支配し、コードという名の資産を、未来のエンジニアのために整備せよ。
それが、真のチーフアーキテクトの矜持である。
