【Project VBAを掌握する極限の知見】ApplicationからTaskまで。オブジェクト階層の迷宮を制覇する設計思想
開発プロジェクトの現場で、Microsoft Project（MSP）の定型業務に絶望していないだろうか。
「毎週の進捗データを手動で入力し、レポートを作成する」「リソースの過負荷調整を力技で行う」――これらをVBAで自動化しようとした際、多くのエンジニアが最初に直面する壁が「オブジェクト階層の迷宮」である。
「なぜ、このコードだとエラーになるのか？」
「ActiveProjectとProjects(1)は何が違うのか？」
Excel VBAのノウハウのままMSPに特攻し、オブジェクトのライフサイクルやコンテキストを無視した結果、動かないスパゲッティコードを生み出す開発者を数多く見てきた。
本記事では、Project VBAの根幹をなすオブジェクト階層（`Application` → `Project` → `Task` / `Resource`）を完全に解体し、現場で即座に使える堅牢なプロダクションコードの書き方をロジカルかつシャープに伝授する。
—
1. なぜオブジェクト階層の理解が不可欠なのか？
MSPのオブジェクトモデルは、Excelのように「単なる表の集まり」ではない。
背後に「CPM（クリティカルパス法）の計算エンジン」が常に稼働しており、オブジェクトを操作する順序や参照のコンテキストを誤ると、計算結果が崩壊するか、致命的な実行時エラー（Runtime Error）を引き起こす。
初心者がやりがちな最悪のアンチパターンを見てみよう。
‘ 【アンチパターン】コンテキストを無視した危険なコード
Sub BadExample()
‘ ActiveProjectに依存し、さらにTaskを直接叩く
ActiveProject.Tasks.Add Name:=”要件定義”
ActiveCell.Task.OutlineIndent ‘ 選択セルに依存する最悪の設計
End Sub
なぜこれが非効率かつ危険なのか？
1. `ActiveProject` への依存: ユーザーがどのプロジェクトタブを開いているかによって、動作する対象が勝手に変わる（予期せぬプロジェクトを破壊するリスク）。
2. `ActiveCell` への依存: 画面のフォーカスに処理が依存するため、バックグラウンド処理（完全自動化）が不可能になる。
プロのアーキテクトが目指すべきは、「画面（UI）に依存せず、明示的なオブジェクト参照によって完結するコード」である。
—
2. Project VBAのオブジェクト階層マップ
MSPのオブジェクトモデルは、以下のようなピラミッド構造を形成している。
[Application] （MSPアプリケーション全体）
├── [Projects] （開かれている全プロジェクトのコレクション）
│ └── [Project] （特定のスケジュールファイル）
│ ├── [Tasks] （タスクのコレクション）
│ │ └── [Task] （個別のタスク。サブタスクも内包）
│ └── [Resources] （リソースのコレクション）
│ └── [Resource] （個別のリソース・コスト）
└── [Windows] （ウィンドウ制御）
この階層をコード上で正確にトレースすることが、バグの起きない堅牢な設計の第一歩となる。
—
3. 【実践】階層を迷わず渡り歩く堅牢なコード設計
それでは、実務の現場で耐えうるプロダクションコードを見ていこう。
以下のコードは、特定のプロジェクトファイルを開き、階層を辿ってタスクとリソースを安全に操作、アサインする一連の流れを実装したものである。
Option Explicit
‘ ==============================================================================
‘ 処理名: 堅牢なタスク生成とリソースアサインのサンプル
‘ 概要 : UIに依存せず、オブジェクト階層を明示的に指定してスケジュールを構築する
‘ ==============================================================================
Sub MasterObjectHierarchy()
Dim appMSProject As MSProject.Application
Dim prjTarget As MSProject.Project
Dim tskNew As MSProject.Task
Dim resTarget As MSProject.Resource
Dim filePath As String
filePath = “C:\Projects\MasterSchedule.mpp”
‘ 1. Application層の取得（インスタンスの制御）
‘ ※Excelから操作する場合はCreateObject(“MSProject.Application”)を使用
Set appMSProject = Application
On Error GoTo ErrorHandler
‘ 2. Project層の特定（開いていなければ開く、開いていれば参照を取得）
Set prjTarget = GetOrOpenProject(appMSProject, filePath)
‘ 3. 処理速度向上のための画面描画停止（超重要テクニック）
appMSProject.ScreenUpdating = False
‘ 4. Task層の操作：タスクの追加
‘ Taskコレクションに対して直接Addメソッドを実行する（ActiveCellは使わない）
Set tskNew = prjTarget.Tasks.Add(Name:=”基盤システム構築”)
tskNew.Start = “2023/12/01 09:00:00”
tskNew.Duration = “5d” ‘ 5日間
‘ 5. Resource層の操作：リソースの検索または追加
Set resTarget = FindOrCreateResource(prjTarget, “インフラエンジニアA”)
‘ 6. Assignment層：タスクとリソースの紐付け
tskNew.ResourceAssignments.Add ResourceID:=resTarget.ID
‘ 7. スケジュールの再計算（明示的な計算実行）
appMSProject.Calculate
MsgBox “オブジェクト階層の操作が正常に完了しました。”, vbInformation, “成功”
CleanUp:
‘ 画面描画の復元（これを忘れるとユーザーが混乱する）
If Not appMSProject Is Nothing Then
appMSProject.ScreenUpdating = True
End If
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
‘ — ヘルパー関数: プロジェクトの安全な取得またはオープン —
Private Function GetOrOpenProject(app As MSProject.Application, path As String) As MSProject.Project
Dim p As MSProject.Project
Dim fileName As String
‘ ファイル名のみを抽出
fileName = Mid(path, InStrRev(path, “\”) + 1)
‘ 既に開いているか走査
For Each p In app.Projects
If StrComp(p.Name, fileName, vbTextCompare) = 0 Then
Set GetOrOpenProject = p
Exit Function
End If
Next p
‘ 開いていなければ新規オープン
Set GetOrOpenProject = app.FileOpenEx(Name:=path, ReadOnly:=False)
End Function
‘ — ヘルパー関数: リソースの存在確認と作成 —
Private Function FindOrCreateResource(prj As MSProject.Project, resName As String) As MSProject.Resource
Dim r As MSProject.Resource
For Each r In prj.Resources
If Not r Is Nothing Then
If r.Name = resName Then
Set FindOrCreateResource = r
Exit Function
End If
End If
Next r
‘ 存在しない場合は新規作成
Set FindOrCreateResource = prj.Resources.Add(Name:=resName)
End Function
—
4. プロのアーキテクトが教える「3つの実務鉄則」
上記のコードおよび設計思想の背景にある、実務で絶対に外せない3つの鉄則を授ける。
① `ScreenUpdating = False` は生命線
MSPは、タスクを1つ追加・変更するたびに、裏でCPMエンジンが全タスクの依存関係（先行・後続）を再計算する。
数千行規模のスケジュールに対してループ処理を行う場合、画面描画と都度の再計算を放置すると、処理に数十分かかるか、最悪の場合フリーズする。
必ず処理の最初に画面描画を止め、最後に `Calculate` を一回だけ呼べ。
② `Active〜`系オブジェクトを排除せよ
前述の通り、`ActiveProject` や `ActiveCell` はユーザーの操作に依存するため、バグの温床になる。
プロシージャの引数や変数にプロジェクトやタスクの参照を保持し、「どのオブジェクトに対する操作か」をコード上で完全に静的バインドに近い状態で担保すること。
③ データベース・ファイル連携時の注意点
社内の基幹システムやExcel、SQL ServerなどからデータをインポートしてMSPを自動生成する場合、「タスク名の重複」や「リソースの単位（Units）」の不整合でエラーが頻発する。
データを流し込む前に、必ずコレクションの存在確認（上記の `FindOrCreateResource` のようなガード節）を挟む防衛的プログラミングを徹底してほしい。
—
5. おわりに
Project VBAのオブジェクト階層は、一見すると複雑で気まぐれに思えるかもしれない。
しかし、今回解説した `Application` から `Task` / `Resource` に至る一本のパス（血流）を意識し、UI依存を断ち切った設計を行えば、MSPはあなたの強力な右腕へと変貌する。
泥臭い手作業の自動化から脱却し、ロジカルで美しい自動化アーキテクチャを君のプロジェクトに導入してほしい。
