Project VBAを掌握する極限の知見：WBS自動パースとインデント構造化の極意
VBAはレガシーではない。メモリ管理とオブジェクトのライフサイクルを完全に掌握した者にとって、それは依然として最速のプロトタイピングおよび業務自動化の武器である。
特にProject VBA（Microsoft ProjectのVBA環境）において、数千行に及ぶWBS（Work Breakdown Structure）の構築と階層管理は、手作業で行えばヒューマンエラーの温床となる。タスク名に含まれる「1.1.2」といったセマンティックなプレフィックスから、瞬時にアウトラインレベル（Outline Level）を算出し、インデント構造を自動構築するパーサー。これこそが、大規模プロジェクトの初期セットアップを秒速で完了させるためのキーストーンである。
本稿では、正規表現エンジンとオブジェクトキャッシュ、そしてProject特有の再計算コストを極限まで抑制した、実戦投入可能なWBS自動パーサーの全貌を解説する。
—
1. アーキテクチャ設計：なぜ「素のVBA文字列操作」では破綻するのか
タスクの階層構造を自動化する際、多くのジュニアプログラマーブルは `Split` 関数や `InStr` を乱用し、O(N^2) の計算量を持つアルゴリズムを組み上げる。結果として、数千件のタスクを持つプロジェクトファイルでVBAが数分間フリーズするか、最悪の場合はメモリリークを引き起こす。
シニアエンジニアが実装すべきアーキテクチャの要件は以下の3点である。
1. 遅延バインディングとオブジェクトの即時解放：COMオブジェクトの参照カウントを正確に制御し、VBEのメモリ空間を汚染しない。
2. 正規表現による厳密なセマンティクス解析：全角・半角の混在や、ドット区切りの深さを一撃で判定する。
3. 描画と再計算の完全抑制（Manual Calculation）：Projectのデフォルトである自動スケジュール・自動再計算を一時停止し、I/Oボトルネックを排除する。
—
2. 実装コード：WBS自動インデント・パーサー
以下のコードは、Project VBAのパフォーマンス限界を引き出すために最適化されたモジュールである。エラーハンドリング、オブジェクトのクリーンアップ、そしてメモリ効率を極限まで高めている。
Option Explicit
‘ ==============================================================================
‘ 処理名: WBS自動インデント・構造化パーサー
‘ 概要: タスク名に含まれるプレフィックス（例: “1.2.3”）を解析し、
‘ Projectのアウトラインレベルとインデントを自動構築する。
‘ ==============================================================================
Public Sub ParseWBSHierarchy()
‘ 計算の自動化を停止し、パフォーマンスを最大化
Dim originalCalc As PjCalculation
originalCalc = Application.Calculation
Application.Calculation = pjManual
‘ 画面描画の停止（パフォーマンス向上）
ScreenUpdating False
On Error GoTo ErrorHandler
Dim tsk As Task
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
‘ セマンティックなWBS番号を検出する正規表現パターン
‘ 例: “1.”, “1.1”, “2.10.4” などを文字列の先頭からキャプチャ
With regEx
.Pattern = “^([0-9]+(\.[0-9]+))\.?\s(.)$”
.IgnoreCase = True
.Global = False
End With
Dim matchCol As Object
Dim wbsString As String
StringCleanup:
For Each tsk Is ActiveProject.Tasks
If Not tsk Is Nothing Then
‘ タスク名が空でないか確認
If Len(tsk.Name) > 0 Then
If regEx.Test(tsk.Name) Then
Set matchCol = regEx.Execute(tsk.Name)
If matchCol.Count > 0 Then
wbsString = matchCol(0).SubMatches(0)
‘ ドットの数からアウトラインレベルを算出
‘ 例: “1” = レベル1, “1.1” = レベル2, “1.1.2” = レベル3
Dim depth As Integer
depth = Len(wbsString) – Len(Replace(wbsString, “.”, “”)) + 1
‘ アウトラインレベルの設定
tsk.OutlineLevel = depth
End If
End If
End If
End If
Next tsk
‘ 階層構造に基づいてプロジェクトのアウトラインをインデント適用
‘ プロジェクトのタスク全体に対してアウトラインを再適用
ActiveProject.OutlineShowAllTasks
‘ 成功時のクリーンアップ
GoTo Finally
ErrorHandler:
MsgBox “WBSパース中に致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Finally:
‘ 状態の復元
ScreenUpdating True
Application.Calculation = originalCalc
‘ COMオブジェクトの明示的解放（メモリリーク防止）
Set regEx = Nothing
Set matchCol = Nothing
Set tsk = Nothing
MsgBox “WBSの階層構造化が完了しました。”, vbInformation, “完了”
End Sub
—
3. チーフアーキテクトの視点：コードの急所とメモリ最適化
上記のコードは一見してシンプルだが、現場で耐えうるシステムにするための「極限の知見」がコードの随所に埋め込まれている。
Ⅰ. `Application.Calculation` の制御
Microsoft Projectは、タスクのインデントを変更するたびに、依存関係やサマリータスクの期間を自動再計算（Recalculate）する。数千件のタスクに対してこれを毎回実行させると、VBAは数分間ハングアップする。`pjManual` に退避・変更し、処理の最後に一括して再計算を走らせるアプローチが必須である。
Ⅱ. 正規表現エンジン（VBScript.RegExp）のライフサイクル管理
`CreateObject(“VBScript.RegExp”)` はループの外で一度だけインスタンス化し、メモリ上に保持するべきである。ループ内で毎回生成・破棄を繰り返すと、COMのガベージコレクションが追いつかず、ヒープ領域の断片化（Memory Fragmentation）を引き起こす。また、処理終了時には必ず `Set regEx = Nothing` を明示し、参照カウントをデクリメントしてメモリを即座に解放すること。
Ⅲ. `Not tsk Is Nothing` の防壁
Project VBAにおいて、削除されたタスクのインデックスや、空のタスクスロットにアクセスすると、トラップ不可能なランタイムエラーが発生する。反復子（Iterator）を使用する際は、必ずオブジェクトの存在確認を行うのが鉄則である。
—
4. システム間連携への拡張：Excel/DBからのパイプライン
実際のエンタープライズ環境では、このWBSパーサー単体で完結することはない。大元の上流システム（ERP、Jira、あるいはExcelで管理された要件定義書）から吐き出されたデータを、安全にMicrosoft Projectへ流し込むためのパイプラインの一部として機能させる必要がある。
外部CSVやDatabaseからタスクを一括インポートする際、名前だけが流し込まれた「フラットな状態」のデータに対し、本稿のパーサーをフックとして走らせることで、瞬時に美しく構造化されたWBSが生成される。レガシーなCSVインポート処理の最後にこのロジックを1行挟むだけで、ツールの品質は劇的に向上する。
VBAは、正しくアーキテクチャを設計すれば、今なお最強の業務自動化基盤である。オブジェクトの挙動を支配し、無駄なI/Oを削ぎ落としたコードだけが、現場のストレスをゼロにする。
