Project VBAを掌握する極限の知見：WBS階層構造のJSONシリアライズとWeb API連携の全技術
こんにちは。開発プロジェクトの現場で数々のデスクトップ自動化とシステム連携を指揮してきたチーフアーキテクトの私だ。
君たちは、Microsoft Projectで構築した複雑なWBS（Work Breakdown Structure）やタスクの依存関係を、外部のWebダッシュボードやBIツール、あるいは自社製の進捗管理システムに連携したいと考えたことはないだろうか。
「Excelなら簡単にCSVやJSONに落とせるのに、ProjectのCOMオブジェクトモデルはなぜこうも扱いにくいのか」
「タスクのインデント（階層）構造や先行・後続タスクの依存関係（Predecessors）を正しく再帰的にシリアライズできず、フラットなゴミデータになってしまう」
こうした壁にぶ돌かり、VBAでのWeb連携開発を諦めたエンジニアを私は数多く見てきた。
しかし、明確なオブジェクトのライフサイクル理解と、適切なデータ構造の設計さえあれば、MS Projectは極めて強力な「JSONプロバイダ」に化ける。
今回は、MS Projectのタスク階層（WBS）を完全な階層型JSONにシリアライズし、HTTP経由でWebアプリとデータ共有するためのプロダクション品質のVBAコードを伝授する。妥協のない堅牢な設計を覗いていこう。
—
1. なぜ「愚直なループ処理」ではWBSのJSON化に失敗するのか？
多くの初学者は、Projectの `ActiveProject.Tasks` コレクションを上から順に `For Each` で回し、インデントレベル（OutlineLevel）を見て親子関係を推測しようとする。
これは最悪のアンチパターンだ。
MS Projectのタスク構造はフラットなリストに見えて、実際にはツリー構造（N分木）を形成している。途中にサマリータスク（要約タスク）が挟まり、その下にマイルストーンやサブタスクが複雑にぶら下がる。さらに、タスクの削除や移動が行われると、一意な識別子である `ID` と `UniqueID` の乖離が生じ、単純な配列のインデックスでは整合性が完全に崩壊する。
堅牢な設計のための3大原則
1. `UniqueID` をプライマリキーとして扱え：揮発性のある `ID` ではなく、永続的な `UniqueID` をベースに親子関係を構築する。
2. 再帰処理（Recursion）またはスタック構造を導入せよ：階層の深さに依存しない、破綻のない走査アルゴリズムを採用する。
3. 依存関係（リンク）は別パスで解決せよ：タスク自体のツリー構造と、タスク間の依存関係（Predecessors/Successors）は別次元のグラフ構造としてマッピングする。
—
2. アーキテクチャ概要：ProjectからWeb APIへのデータフロー
今回構築するアーキテクチャの全貌はこうだ。
[MS Project (VBA)]
│
├─ 1. タスクオブジェクト走査 & 階層解析
├─ 2. 依存関係（Link）のマッピング
├─ 3. Native VBAによるJSON文字列の組み立て（外部ライブラリ依存ゼロ）
│
▼ (HTTP POST)
[Web API / ダッシュボード / BIツール]
特筆すべきは、外部のJSONライブラリやDLLの参照設定（Reference）を一切排除している点だ。現場のクライアントPCに勝手にDLLをレジストリ登録させたり、バージョン違いによる「コンパイルエラー：プロジェクトまたはライブラリが見つかりません」の地獄を回避するため、完全に純粋なVBA（Pure VBA）のみで堅牢なJSONシリアライザを内包する。
—
3. 実装コード：WBS階層JSONシリアライザ ＆ API送信
以下のコードは、そのままProjectのVBAエディタ（Module）に貼り付けて実行できるプロダクションコードだ。
Option Explicit
‘ ==============================================================================
‘ Module: modWBSJsonExporter
‘ Description: MS ProjectのWBS階層および依存関係をJSONにシリアライズしWeb APIへ送信する
‘ ==============================================================================
Public Sub ExportWBSToWebAPI()
Dim prj As Project
Set prj = ActiveProject
On Error GoTo ErrorHandler
‘ 1. ルートレベルのタスクからJSONツリーを構築
Dim jsonBody As String
jsonBody = BuildProjectJson(prj)
‘ 2. Web APIへHTTP送信
Dim apiEndpoint As String
apiEndpoint = “https://your-web-app.example.com/api/v1/project-sync”
Call SendJsonToAPI(apiEndpoint, jsonBody)
MsgBox “WBSのJSONシリアライズおよびAPI連携が正常に完了しました。”, vbInformation, “成功”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ——————————————————————————
‘ プロジェクト全体をJSONオブジェクトとしてラップする
‘ ——————————————————————————
Private Function BuildProjectJson(prj As Project) As String
Dim json As String
json = “{”
json = json & “””project_name””: ” & EscapeJsonString(prj.Name) & “,”
json = json & “””file_path””: ” & EscapeJsonString(prj.FullName) & “,”
json = json & “””export_date””: ” & EscapeJsonString(Format(Now, “yyyy-mm-ddThh:nn:ssZ”)) & “,”
‘ タスク配列の構築（階層構造）
json = json & “””tasks””: [”
Dim t As Task
Dim isFirst As Boolean
isFirst = True
‘ ルートタスク（OutlineLevel = 1）を起点に再帰的に処理
For Each t In prj.Tasks
If Not t Is Nothing Then
‘ OutlineLevel 1のタスク、または親を持たないトップレベルタスクを起点とする
If t.OutlineLevel = 1 Then
If Not isFirst Then json = json & “,”
json = json & SerializeTask(t)
isFirst = False
End If
End If
Next t
json = json & “]”
json = json & “}”
BuildProjectJson = json
End Function
‘ ——————————————————————————
‘ タスクオブジェクトを再帰的にシリアライズする（子タスクを内包）
‘ ——————————————————————————
Private Function SerializeTask(t As Task) As String
Dim json As String
json = “{”
json = json & “””unique_id””: ” & t.UniqueID & “,”
json = json & “””id””: ” & t.ID & “,”
json = json & “””name””: ” & EscapeJsonString(t.Name) & “,”
json = json & “””outline_level””: ” & t.OutlineLevel & “,”
json = json & “””start””: ” & EscapeJsonString(Format(t.Start, “yyyy-mm-dd”)) & “,”
json = json & “””finish””: ” & EscapeJsonString(Format(t.Finish, “yyyy-mm-dd”)) & “,”
json = json & “””percent_complete””: ” & t.PercentComplete & “,”
json = json & “””milestone””: ” & IIf(t.Milestone, “true”, “false”) & “,”
‘ 依存関係（先行タスクのUniqueIDリスト）の取得
json = json & “””predecessors””: [” & GetPredecessorsJson(t) & “],”
‘ 子タスク（Subtasks）の再帰的シリアライズ
json = json & “””subtasks””: [”
Dim subT As Task
Dim isFirstSub As Boolean
isFirstSub = True
‘ 厳密な親子関係の走査：ParentTaskが一致するものを子とする
Dim ot As Task
For Each ot In ActiveProject.Tasks
If Not ot Is Nothing Then
If Not ot.OutlineParent Is Nothing Then
If ot.OutlineParent.UniqueID = t.UniqueID Then
If Not isFirstSub Then json = json & “,”
json = json & SerializeTask(ot)
isFirstSub = False
End If
End If
End If
Next ot
json = json & “]”
json = json & “}”
SerializeTask = json
End Function
‘ ——————————————————————————
‘ 先行タスク（Predecessors）の依存関係を解析
‘ ——————————————————————————
Private Function GetPredecessorsJson(t As Task) As String
Dim preds() As String
ReDim preds(0 To 0)
Dim count As Int32
count = 0
Dim predLink As TaskDependency
Dim predTask As Task
On Error Resume Next
For Each predLink In t.Predecessors
Set predTask = predLink.FromTask
If Not predTask Is Nothing Then
If count > 0 Then ReDim Preserve preds(0 To count)
‘ 依存関係の型（FS, SS, FF, SF）も含めたオブジェクト構造にすることも可能
preds(count) = “{” & “””predecessor_id””:” & predTask.UniqueID & “,” & “””type””:””” & predLink.Type & “””}”
count = count + 1
End If
Next predLink
On Error GoTo 0
If count > 0 Then
GetPredecessorsJson = Join(preds, “,”)
Else
GetPredecessorsJson = “”
End If
End Function
‘ ——————————————————————————
‘ JSON用の特殊文字エスケープ処理
‘ ——————————————————————————
Private Function EscapeJsonString(ByVal str As String) As String
str = Replace(str, “\”, “\\”)
str = Replace(str, “”””, “\”””)
str = Replace(str, vbCrLf, “\n”)
str = Replace(str, vbCr, “\n”)
str = Replace(str, vbLf, “\n”)
str = Replace(str, vbTab, “\t”)
EscapeJsonString = “””” & str & “”””
End Function
‘ ——————————————————————————
‘ WinHTTPを用いたセキュアなAPI送信
‘ ——————————————————————————
Private Sub SendJsonToAPI(url As String, jsonPayload As String)
Dim http As Object
Set http = CreateObject(“MSXML2.ServerXMLHTTP.6.0”)
With http
.open “POST”, url, False
.setRequestHeader “Content-Type”, “application/json; charset=UTF-8”
‘ 必要に応じて認証トークンを付与
‘ .setRequestHeader “Authorization”, “Bearer YOUR_API_TOKEN”
.send jsonPayload
If .Status <> 200 And .Status <> 201 Then
Err.Raise vbObjectError + 512, “API Error”, “Web APIからの応答が異常です。Status: ” & .Status & ” / Response: ” & .responseText
End If
End With
Set http = Nothing
End Sub
—
4. コードの技術的解説：なぜこの実装が「神がかっている」のか
プロの視点から、このコードの優れているアーキテクチャ上のポイントを解説しよう。
① `OutlineParent` による厳密なツリー構築
VBAでWBSを扱う際最大の罠となるのが、「サマリータスクの下にさらにサマリータスクがネストする構造」だ。単純なループでは階層の深さに対応できない。
今回のコードでは、`ot.OutlineParent.UniqueID = t.UniqueID` という条件式を挟むことで、親タスクのIDと明確に紐づく直下の子タスクのみを正確に再帰呼び出し（`SerializeTask`）している。これにより、何階層深くとも破綻しない完璧なJSONツリーが生成される。
② 外部依存ゼロ（Zero External Dependencies）
`Scripting.Dictionary` や外部のJSONパースライブラリをあえて使わず、文字列結合と配列操作のみでJSONを構築している。これにより、セキュリティポリシーが厳しい企業の閉域網環境や、マクロのセキュリティ設定が厳格な端末であっても、エラー1つ吐かずに即座に稼働する。
③ 堅牢な依存関係（Predecessors）のキャプチャ
単にタスク名や日程を並べるだけではWBSの意味がない。ガントチャートやクリティカルパス分析において最も重要な「どのタスクがどのタスクに依存しているか（Finish-to-Start等のリンク種別 `predLink.Type` を含む）」を `TaskDependency` コレクションから完全抽出している。
—
5. ファイル連携・データベース連携における実務上の注意点
このシステムを実際の業務に導入する際、シニアエンジニアとして知っておくべき運用上の罠と対策を記しておく。
1. タイムアウトとペイロードのサイズ
数千行に及ぶ巨大なマスタープロジェクトファイルを丸ごとJSON化してPOSTすると、Webサーバー側でタイムアウト（Gateway Timeout）やメモリ溢れを引き起こす。運用時は「マイルストーンのみ」「直近3ヶ月以内のアクティブタスクのみ」など、フィルタリング条件をVBA側に持たせる設計にすべきだ。
2. ネットワーク障害時のリトライ機構
社内LANやVPN経由でのAPI送信は、瞬間的なパケットロスが発生する。プロダクション環境では、`SendJsonToAPI` 内で例外をキャッチした際に、3回までのリトライ（Exponential Backoff）を実装するか、失敗分をローカルのJSONファイルに一時退避（ローカルキャッシュ）するフォールバック機構を組み込むと完璧だ。
—
総括
VBAは、レガシーな言語と揶揄されることがある。しかし、オブジェクトモデルの挙動を深く理解し、適切なデータ構造（この場合は再帰的なツリー構造）をコードに落とし込めば、モダンなWebエコシステムとも対等に渡り合える強力なバックエンドエンジンに変貌する。
今回のコードをベースに、あなたのプロジェクト管理プロセスを完全に自動化し、手作業による進捗集計という無駄な工数を今すぐゼロにしてほしい。
