Project VBAを掌握する極限の知見：循環参照デバッグエンジンの構築
大規模なProject VBA（Microsoft ProjectのVBA環境）によるWBS（Work Breakdown Structure）の自動生成、あるいは外部システムからのデータ同期において、最も厄介な障害が「タスク間の循環参照（Circular Dependency）」である。
先行タスク（Predecessors）と後続タスク（Successors）のグラフ構造において、意図しないループが形成された瞬間、Projectのエンジンはスケジュール計算の無限ループ、あるいは致命的な例外エラーを吐き出して沈黙する。UI上からの手動修復など、数千行規模のWBSの前では無力に等しい。
我々に必要なのは、GUIの警告ダイアグラムに頼るのではなく、メモリ上のタスクネットワークを数理的に解析し、循環参照の発生源をピンポイントで特定してログに叩き出すデバッグエンジンだ。
今回は、Project VBAのオブジェクトモデルの暗部を知り尽くしたアーキテクチャの視点から、グラフ理論（深さ優先探索：DFS）をVBA上で極限まで最適化して実装し、さらにWindows APIを活用した高速ロギングを実現する手法を解説する。
—
1. Project VBAにおける依存関係の闇とグラフ構造
Microsoft Projectの`Task`オブジェクトおよび`TaskPredecessor`コレクションは、一見するとシンプルな親子関係・前後関係に見えるが、COM相互運用（COM Interop）のオーバーヘッドが非常に重い。
数千件のタスクを走査する際、漫然と`Task.Predecessors`コレクションをループさせると、COM境界を跨ぐ往復コストによって実行速度は幾何級数的に低下する。さらに、循環参照が存在する状態でProjectの標準メソッド（`Task.Calculate`など）を叩くと、スタックオーバーフローを引き起こし、アプリケーション全体が強制終了する。
したがって、以下の戦略をとる。
1. メモリ上のネイティブ配列への一次キャッシュ：COMオブジェクトへのアクセスを最小限にし、VBAの高速なバリアント配列上でグラフ探索を行う。
2. 三色フラグ法（Three-Color Marking）によるDFS：グラフ理論における循環検出の黄金律をVBAで実装し、O(V + E)の計算量でループを検知する。
—
2. 循環参照検出デバッグエンジンの実装コード
以下のコードは、Projectの全タスクの依存関係をメモリ上に展開し、深さ優先探索（DFS）によって循環参照を検出し、詳細なパスをログファイルに出力する完全なモジュールである。
Option Explicit
‘ Windows API: 処理時間計測を高精度に行うためのAPI（必要に応じて使用）
If VBA7 Then
Private Declare PtrSafe Function GetTickCount64 Lib “kernel64” () As LongLong
Else
Private Declare Function GetTickCount Lib “kernel32” Alias “GetTickCount” () As Long
End If
‘ タスクノードの状態管理用定数（三色フラグ法）
Private Const STATE_UNVISITED As Integer = 0
Private Const STATE_VISITING As Integer = 1
Private Const STATE_VISITED As Integer = 2
Public Sub RunCircularDependencyDetector()
Dim startTime As Double
#If VBA7 Then
startTime = GetTickCount64()
#Else
startTime = GetTickCount()
#End If
Dim tProj As Project
Set tProj = ActiveProject
Dim tTasks As Tasks
Set tTasks = tProj.Tasks
Dim taskCount As Long
taskCount = tTasks.Count
If taskCount = 0 Then Exit Sub
‘ 1. メモリ最適化：COMアクセス削減のため、IDとUID、および先行タスクのつながりを二次元配列へ一括インポート
‘ 構造: Adjacency List (隣接リスト) をVBAのDictionaryとArrayで構築
Dim dictIdToIndex As Object
Set dictIdToIndex = CreateObject(“Scripting.Dictionary”)
ReDim taskIds(1 To taskCount) As Long
ReDim taskUIDs(1 To taskCount) As Long
ReDim taskNames(1 To taskCount) As String
Dim i As Long, idx As Long
idx = 0
For i = 1 To taskCount
If Not tTasks(i) Is Nothing Then
If Not tTasks(i).Summary Then ‘ サマリータスクを除外する場合のガード（必要に応じて変更）
idx = idx + 1
taskIds(idx) = tTasks(i).ID
taskUIDs(idx) = tTasks(i).UniqueID
taskNames(idx) = tTasks(i).Name
dictIdToIndex.Add tTasks(i).ID, idx
End If
End If
Next i
ReDim Preserve taskIds(1 To idx)
ReDim Preserve taskUIDs(1 To idx)
ReDim Preserve taskNames(1 To idx)
Dim有效taskCount As Long
有效taskCount = idx
‘ 隣接リスト（Predecessors）の構築
‘ グラフの方向: Predecessor -> CurrentTask (先行タスクから現在のタスクへ向かう有向グラフ)
‘ 循環参照を探す場合、「現在探索中のパス上に再度現れるノード」を検出する
Dim adjList() As Variant
ReDim adjList(1 To 有効taskCount)
For i = 1 To 有効taskCount
Dim preds As Tasks
Set preds = tTasks.Item(taskIds(i)).Predecessors
Dim pList() As Long
Dim pCount As Long: pCount = 0
Dim p As Task
For Each p In preds
If dictIdToIndex.Exists(p.ID) Then
pCount = pCount + 1
ReDim Preserve pList(1 To pCount)
pList(pCount) = dictIdToIndex(p.ID)
End If
Next p
If pCount > 0 Then
adjList(i) = pList
Else
adjList(i) = Empty
End If
Next i
‘ 2. グラフ探索（DFS + 三色フラグ法）による循環検出
Dim visitState() As Integer
ReDim visitState(1 To 有効taskCount)
Dim logPath As String
logPath = ActiveProject.Path & “\CircularDependency_Log.txt”
Dim fileNum As Integer
fileNum = FreeFile
Open logPath For Output As #fileNum
Print #fileNum, “=== Project VBA 循環参照デバッグログ ===”
Print #fileNum, “解析日時: ” & Now
Print #fileNum, “対象プロジェクト: ” & tProj.Name
Print #fileNum, “————————————————–”
Dim cycleFound As Boolean
cycleFound = False
Dim recursionStack() As Long
ReDim recursionStack(1 To 有効taskCount)
For i = 1 To 有効taskCount
If visitState(i) = STATE_UNVISITED Then
If DFS_DetectCycle(i, adjList, visitState, recursionStack, 0, fileNum, taskIds, taskNames) Then
cycleFound = True
End If
End If
Next i
If Not cycleFound Then
Print #fileNum, “結果: 循環参照は検出されませんでした。”
Else
Print #fileNum, “結果: 循環参照が検出されました。上記のパスを確認してください。”
End If
Close #fileNum
‘ 3. オブジェクトの明示的解放（メモリリーク防止）
Set dictIdToIndex = Nothing
Set tTasks = Nothing
Set tProj = Nothing
Dim elapsedTime As Double
#If VBA7 Then
elapsedTime = (GetTickCount64() – startTime) / 1000#
#Else
elapsedTime = (GetTickCount() – startTime) / 1000#
#End If
MsgBox “解析完了。ログファイルを出力しました。” & vbCrLf & _
“出力先: ” & logPath & vbCrLf & _
“処理時間: ” & Format(elapsedTime, “0.00”) & ” 秒”, vbInformation
End Sub
‘ DFSによる循環検出の再帰関数
Private Function DFS_DetectCycle(ByVal u As Long, ByRef adjList() As Variant, ByRef visitState() As Integer, _
ByRef stack() As Long, ByVal stackDepth As Long, ByVal fileNum As Integer, _
ByRef taskIds() As Long, ByRef taskNames() As String) As Boolean
visitState(u) = STATE_VISITING
stackDepth = stackDepth + 1
stack(stackDepth) = u
Dim hasCycle As Boolean
hasCycle = False
If Not IsEmpty(adjList(u)) Then
Dim vList() As Long
vList = adjList(u)
Dim k As Long
For k = LBound(vList) To UBound(vList)
Dim v As Long
v = vList(k)
If visitState(v) = STATE_VISITING Then
‘ 循環検出！ どのパスでループしているかをスタックから逆算してログ出力
hasCycle = True
Print #fileNum, “[検出] 循環参照エラー発覚:”
Dim j As Long
Dim loopStart As Boolean: loopStart = False
For j = 1 To stackDepth
If stack(j) = v Then loopStart = True
If loopStart Then
Print #fileNum, ” -> タスク ID: ” & taskIds(stack(j)) & ” (” & taskNames(stack(j)) & “)”
End If
Next j
‘ ループを閉じる
Print #fileNum, ” -> タスク ID: ” & taskIds(v) & ” (” & taskNames(v) & “) [循環元に戻る]”
Print #fileNum, “————————————————–”
ElseIf visitState(v) = STATE_UNVISITED Then
If DFS_DetectCycle(v, adjList, visitState, stack, stackDepth, fileNum, taskIds, taskNames) Then
hasCycle = True
End If
End If
Next k
End If
visitState(u) = STATE_VISITED
DFS_DetectCycle = hasCycle
End Function
—
シニアエンジニアのためのコード解説とアーキテクチャの急所
1. COMレイヤーのキャッシュ戦略
`For Each p In preds` や `ActiveProject.Tasks` を直接ループの度に参照すると、VBAとMS ProjectのC++コア間でMarshallingが発生し、極端なパフォーマンス劣化を招く。一度配列(`taskIds`, `taskNames`)にデータを引き抜くことで、VBAの内部メモリ（ネイティブ配列）上での高速な探索を実現している。
2. 三色フラグ法（Three-Color Marking）
- `STATE_UNVISITED`（白）：未訪問
- `STATE_VISITING`（灰）：現在探索中のスタック上（この状態のノードに再び到達した場合、それが「循環参照」である）
- `STATE_VISITED`（黒）：探索完了（安全）
このアルゴリズムにより、無駄な重複探索を防ぎ、大規模WBSであっても数秒以内の解析を担保する。
3. 安全なオブジェクト解放
VBAのガベージコレクションは参照カウント方式（Reference Counting）に依存している。特にMicrosoft ProjectのCOMオブジェクトは循環参照や参照の解放漏れがそのままメモリリーク（プロセス残留）に直結するため、処理の終端で確実に `Set object = Nothing` を明示している。
—
3. レガシー環境とシステム間連携における実践的運用
このデバッグツールは、単にIDE上で手動実行するだけにとどまらず、基幹システム（SAPやP6など）からCSV/XML経由でインポートされたプロジェクトデータを、バッチ処理の一環として自動検証するための「ガードレール」として組み込むべきである。
- ファイルI/Oの堅牢性：ログ出力先には `ActiveProject.Path` を動的に取得し、権限エラーを防ぐために `FreeFile` 関数で安全なファイルチャネルを確保している。
- マルチ言語対応への配慮：タスクの名称やIDをログに出力する際、SJIS/UTF-8の文字コード混在による文字化けを防ぐため、出力先ファイルシステムへの配慮（必要に応じたADODB.Stream等への換装）も視野に入れておくと、グローバル展開されたプロジェクト管理基盤でも耐えうる。
GUIの警告に振り回され、デバッグに数時間を費やす時代は終わった。数理モデルに裏打ちされたコードこそが、巨大なレガシー・プロジェクトの迷宮を切り崩す唯一の武器である。
