Project VBAの暗部を制す：実行時エラー1101を根絶する「タスク操作」の極意
Project VBAを扱う開発者の多くが、一度は直面する「実行時エラー1101」。
「タスクを追加しようとしたら落ちた」「依存関係を設定した瞬間にオブジェクトが迷子になった」……そんな経験はないだろうか。
このエラーは、単なるコードのミスではない。MS Projectという巨大で複雑なオブジェクトモデルの「非同期的な性質」と「甘い参照管理」が引き起こす必然だ。
今日は、場当たり的な修正で時間を浪費するのをやめ、プロのアーキテクトとして「堅牢なタスク操作」の設計術を伝授する。
—
1. そもそもなぜ「エラー1101」が起きるのか？
エラー1101（The argument value is not valid）がタスク操作で頻発する最大の原因は、「Projectの再計算サイクルとVBAの実行タイミングの不整合」にある。
Projectは、タスクを追加したり依存関係（Predecessors）を付与したりするたびに、裏側で強力なスケジューリングエンジンを走らせている。このとき、VBA側が「まだ存在を確定させていない（あるいはメモリ上で不安定な）タスクID」を操作しようとすると、カーネルレベルで拒絶される。
特に以下の操作は地雷だ。
- ループ内での連続的なAdd: プロジェクトの再計算が追いつかず、インデックスがずれる。
- 非現実的な依存関係の付与: 循環参照や、削除予定のタスクIDへの参照。
- ScreenUpdatingの未制御: 画面描画のコストが、オブジェクトの更新タイミングを狂わせる。
—
2. 堅牢なタスク操作の「3つの鉄則」
エラーを回避し、メンテナンス性を担保するためには、以下の設計思想をコードに落とし込む必要がある。
1. オブジェクトの「生存確認」を怠らない: IDで操作せず、`Task`オブジェクトを直接変数に格納し、そのオブジェクトが `Nothing` でないかを必ずチェックする。
2. 計算モードを「手動」に切り替える: 大規模なWBS構築時は、操作中に自動計算が走らないよう `Application.Calculation = pjManual` に設定せよ。
3. 依存関係は「名前」ではなく「ユニークID」で管理する: タスクIDは挿入・削除で変動する。本当に重要な結合は `UniqueID` プロパティで追跡せよ。
—
3. 実践：安全なタスク追加と依存関係設定のプロダクションコード
以下は、私が大規模プロジェクトの工程管理ツールを構築する際に必ず採用する、実戦的なテンプレートだ。
Public Sub SafeAddTaskWithDependency(ByVal taskName As String, _
ByVal predecessorTask As Task)
Dim pj As Project
Set pj = ActiveProject
‘ 1. 計算モードを手動にしてオーバーヘッドを排除
Dim originalCalc As Long
originalCalc = Application.Calculation
Application.Calculation = pjManual
On Error GoTo ErrorHandler
‘ 2. タスクの追加
Dim newTask As Task
Set newTask = pj.Tasks.Add(taskName)
‘ 3. オブジェクトの生存確認（ここが最も重要）
If newTask Is Nothing Then Err.Raise 9999, , “タスクの生成に失敗しました”
‘ 4. 依存関係の設定（PredecessorsプロパティにはユニークIDを使用）
If Not predecessorTask Is Nothing Then
‘ 循環参照や不正な依存関係を防ぐロジックをここに挟む
newTask.Predecessors = predecessorTask.UniqueID
End If
‘ 終了処理
Application.Calculation = originalCalc
Exit Sub
ErrorHandler:
Application.Calculation = originalCalc
MsgBox “エラー発生: ” & Err.Number & vbCrLf & Err.Description, vbCritical
End Sub
このコードがなぜ「プロ仕様」なのか
- 状態の復元: エラーが発生しても、`Application.Calculation` が元の状態に戻るよう設計されている。これを忘れると、ユーザーは「Projectが動かなくなった」と錯覚する。
- インジェクションへの耐性: `predecessorTask` をオブジェクトとして渡すことで、外部のデータソース（ExcelやSQL）から取得したIDを逐次検索する無駄なオーバーヘッドを排除している。
—
4. データベース連携時の注意点：同期の哲学
外部データベースやExcelからタスクをインポートする場合、「IDをキーにするな」。これが鉄則だ。
- マッピングテーブルの作成: 外部DBの主キー（UUIDなど）と、Project内の `UniqueID` を紐付けるマッピングテーブル（Collectionオブジェクトを活用）をメモリ上に構築せよ。
- 更新のバッチ化: 1タスクごとにDBと通信するのではなく、一度 `Collection` にタスク情報を読み込み、一気に `Tasks.Add` を実行する。そして最後に `Application.CalculateAll` を呼び出す。これが最も効率的でバグが少ない。
—
最後に：エンジニアとしての矜持
VBAは「古い言語」と揶揄されることもあるが、Projectという巨大なシステムの深淵に触れるには、依然として最強のツールだ。
エラー1101が出るのは、あなたの腕が悪いのではない。「Projectが今どのような状態にあるか」というメタ視点をコードが持てていないだけだ。
今回伝えた「計算モードの制御」「オブジェクトの生存確認」「ユニークIDの活用」。これらを意識するだけで、あなたのツールは「動けばいいコード」から「保守可能な資産」へと進化する。
コードは嘘をつかない。論理を研ぎ澄まし、堅牢なシステムを構築してほしい。質問があればいつでも歓迎する。
