【Project VBA極限解説】Excelの階層構造を読め！WBS一括生成とOutlineLevel自動調停のアーキテクチャ
Excelで緻密に練り上げられたWBS（Work Breakdown Structure）をMicrosoft Projectへ流し込む。一見、単純なループ処理とインポートの実装に見えるこの要件こそ、多くのVBAエンジニアがメモリリーク、パフォーマンス低下、そして階層の崩壊という名の泥沼に沈む鬼門である。
本稿では、レガシーなCOM Interopの挙動を完全に掌握し、数千行規模のWBSをミリ秒単位でProjectへ流し込むための「極限の知見」を提示する。単なるコードのコピペではない。オブジェクトのライフサイクル管理、インデント構造の動的解析、そしてCOM境界を越える際の最適化手法を解説する。
—
1. アーキテクチャの核心：なぜ素直な実装は破綻するのか？
Excelからデータを読み込み、Projectの `Task.OutlineLevel` を操作して階層構造を構築する際、開発者が直面する最大の罠は「COMオブジェクトの暗黙的な参照保持」と「再計算（Calculation）のオーバーヘッド」である。
VBAにおいて、`ActiveProject.Tasks.Add` を雑にループさせると、背後でProject側のエンジンがタスク追加のたびにスケジュール全体の再計算とUIの再描画を走らせる。これが数千行に達した瞬間、処理時間は幾何級数的に増大し、最悪の場合はCOM例外（RPC_E_SERVERCALL_RETRYLATER）でプロセスがクラッシュする。
これを回避するためには、以下の鉄則を遵守しなければならない。
1. 画面描画と自動計算の完全な抑制 (`Application.Calculation = pjManual` の活用)
2. オブジェクト変数の完全な解放 (`Set obj = Nothing` による参照カウンタの適正化)
3. インデント（WBSのドット表記や空白、あるいはレベル数値）の厳密なパース
—
2. 実装パターン：Excel WBSからProjectタスクへの高速一括生成エンジン
以下に、実務の現場で耐えうる堅牢性とパフォーマンスを極限まで高めたVBAコードを示す。このコードは、Excel側の「WBS番号（例: 1.1.2）」または「インデントレベル」を解析し、Project側で正しいアウトライン階層を構築する。
Option Explicit
‘ ==============================================================================
‘ 処理名: ImportWbsToProject
‘ 概要 : Excelの階層化されたWBSリストを読み込み、Microsoft Project側に
‘ アウトライン構造を維持したタスク群を高速生成する。
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub ImportWbsToProject()
‘ — 1. 宣言と環境退避 —
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim lastRow As Long
Dim i As Long
Dim prjApp As MSProject.Application
Dim prjTask As MSProject.Task
‘ パフォーマンス最適化のための変数
Dim originalCalc As Long
‘ Excelファイルのパス（環境に合わせて変更してください）
Const EXCEL_PATH As String = “C:\Data\WBS_Master.xlsx”
Const SHEET_NAME As String = “WBS”
‘ 実行時エラーハンドリングの確立
On Error GoTo ErrorHandler
‘ Project側のアプリケーション参照を取得（早期バインディング前提）
Set prjApp = ActiveProject.Application
‘ 【重要】描画と自動計算を停止し、COM往復のコストを極限まで削る
originalCalc = prjApp.Calculation
prjApp.Calculation = pjManual
prjApp.ScreenUpdating = False
‘ — 2. Excelの遅延バインディング接続 —
‘ Excelが既に起動しているか、あるいは独立したインスタンスとして安全に操作するためCreateObjectを使用
Set xlApp = CreateObject(“Excel.Application”)
xlApp.Visible = False
xlApp.DisplayAlerts = False
Set xlWb = xlApp.Workbooks.Open(EXCEL_PATH, ReadOnly:=True)
Set xlWs = xlWb.Sheets(SHEET_NAME)
‘ データ最終行の取得（A列を基準とする）
lastRow = xlWs.Cells(xlWs.Rows.Count, “A”).End(xlUp).Row
‘ — 3. メインループ：タスク生成と階層構造の構築 —
‘ 前提: Excel側構造
‘ A列: タスク名 (String)
‘ B列: アウトラインレベル (Long: 1, 2, 3…) または WBS文字列
‘ C列: 期間 (Variant)
For i = 2 To lastRow
Dim taskName As String
Dim targetLevel As Long
Dim taskDuration As Variant
taskName = xlWs.Cells(i, 1).Value
targetLevel = CLng(xlWs.Cells(i, 2).Value)
taskDuration = xlWs.Cells(i, 3).Value
If Trim(taskName) <> “” Then
‘ タスクの追加
Set prjTask = prjApp.ActiveProject.Tasks.Add(Name:=taskName)
‘ 期間の設定（数値の場合は日数を設定）
If IsNumeric(taskDuration) Then
prjTask.Duration = taskDuration & “d”
End If
‘ アウトラインレベルの調停
‘ ※Projectでは、タスク追加時は最上位レベルになるため、
‘ 必要に応じてOutdent/Indentメソッドで階層を調整する。
‘ 実務では現在のTask.OutlineLevelとtargetLevelを比較して制御する。
Call AdjustOutlineLevel(prjTask, targetLevel)
End If
‘ ループごとのオブジェクト解放（メモリリーク防止）
Set prjTask = Nothing
Next i
‘ — 4. 正常終了処理 —
MsgBox “WBSのインポートが正常に完了しました。”, vbInformation, “Architect Engine”
GoTo Finally
ErrorHandler:
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Number & ” – ” & Err.Description, vbCritical, “System Error”
Finally:
‘ — 5. リソースの解放と環境復元 —
‘ COMオブジェクトの連鎖的な解放
On Error Resume Next
If Not xlWb Is Nothing Then xlWb.Close False
If Not xlApp Is Nothing Then xlApp.Quit
Set xlWs = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
If Not prjApp Is Nothing Then
prjApp.Calculation = originalCalc
prjApp.ScreenUpdating = True
End If
Set prjApp = Nothing
End Sub
‘ ==============================================================================
‘ 補助ルーチン: 目標とするOutlineLevelへタスクを誘導する
‘ ==============================================================================
Private Sub AdjustOutlineLevel(ByRef t As MSProject.Task, ByVal targetLevel As Long)
‘ 現在のレベルと目標レベルの差分を計算し、インデント/アウトデントを実行
Do While t.OutlineLevel < targetLevel
t.Indent
' 無限ループ防止の安全装置
If t.OutlineLevel = targetLevel Then Exit Do
Loop
Do While t.OutlineLevel > targetLevel
t.Outdent
If t.OutlineLevel = targetLevel Then Exit Do
Loop
End Sub
—
3. チーフアーキテクトが指摘する「現場の急所」
上記のコードを実運用に組み込む際、シニアエンジニアとして知っておくべき極限の知見をいくつか共有する。
① 参照の連鎖（Reference Chaining）とメモリリークの罠
VBAのガベージコレクションは参照カウント方式に基づいている。ループ内で `Set prjTask = ActiveProject.Tasks.Add(…)` を繰り返すとき、明示的に `Set prjTask = Nothing` を挟まないと、COMラッパーがメモリ上に残り続け、大規模なWBS（5,000行以上）を処理した際にExcel/Projectプロセスが突然沈黙（Out of Memory）する。オブジェクト変数は「使い捨てのスコープ」として厳格に管理せよ。
② `Calculation = pjManual` の絶対性
Projectはタスクが1行追加されるたびに、WBS全体のクリティカルパスや先行・後続タスクの再計算をバックグラウンドで試みる。数千行のインポートでこれを放置すると、OSのCPUコアを片側100%食いつぶし、処理が数十分で終わらなくなる。必ず手動計算モード（`pjManual`）に切り替え、インポート完了後に `ActiveProject.Recalc` を1度だけ叩くのがプロの作法である。
③ インデント調停における挙動の癖
Microsoft ProjectのCOM APIにおいて、`Tasks.Add` で生成された直後のタスクは、常に最上位（OutlineLevel = 1）として認識されるか、あるいは直前のタスクの構造を引き継ぐ。したがって、単純に `OutlineLevel` プロパティに直接値を代入することはできない（読み取り専用であるか、あるいは直接代入による構造破壊が起きる）。必ず `Indent` / `Outdent` メソッドをデルタ値（差分）分だけ呼び出して階層を調停する必要がある。上記の `AdjustOutlineLevel` サブルーチンはこの挙動を安全にラップしている。
—
結び
VBAはレガシーな言語と揶揄されることがある。しかし、APIのライフサイクル、COMのメモリモデル、そしてアプリケーションの内部挙動を完全に支配したコードベースは、現代のどの高水準言語で書かれたバッチ処理にも匹敵する堅牢性とスピードを発揮する。
あなたの手元にあるExcelとProjectを、単なる「お絵描きツール」から、システム間連携を担う堅牢なプラットフォームへと昇華させてほしい。
