プロジェクト管理の「自動化」を極める：Project VBAによる堅牢なファイル生成術
現場のプロジェクトマネージャーやPMOが、手作業でMS Projectのファイルを立ち上げ、タスクを打ち込み、ベースラインを引く……。そんな前時代的な作業に時間を溶かすのは今日で終わりにしよう。
MS ProjectのVBAは、単なる「操作の記録」ではない。正しく設計すれば、プロジェクトのガバナンスを強制し、ヒューマンエラーを根絶するための強力なエンジンとなる。今回は、プロジェクトファイルの自動生成という「最初の関門」を、プロの現場で通用するレベルで解説する。
—
なぜ「記録」ではなく「設計」が必要なのか
初心者が書くコードと、我々が書くコードの決定的な違いは、「状態の確定」への執着だ。
単に `FileNew` を呼ぶだけなら誰でもできる。しかし、環境依存やオブジェクトの未初期化によって発生する「ゾンビプロセス」や「予期せぬファイルパス指定による上書き」を防ぐには、オブジェクト指向のライフサイクルを理解した堅牢な設計が不可欠だ。
プロダクションコード：プロジェクト生成のテンプレート
以下は、テンプレートファイルを安全に読み込み、初期プロパティを設定して保存するまでの「実戦用コード」だ。
‘ ==============================================================================
‘ 機能名: InitializeNewProject
‘ 概要: テンプレートからプロジェクトを生成し、メタデータを付与して保存する
‘ ==============================================================================
Public Sub InitializeNewProject(ByVal templatePath As String, ByVal savePath As String, ByVal projectName As String)
Dim projApp As MSProject.Application
Dim newProj As MSProject.Project
‘ エラーハンドリングの要。予期せぬ中断によるメモリリークを防ぐ
On Error GoTo ErrorHandler
Set projApp = Application ‘ 現在のインスタンスを明示的に取得
‘ 1. テンプレートから新規生成
‘ ※Application.FileNewは引数でテンプレートを指定可能
projApp.FileNew Template:=templatePath
Set newProj = projApp.ActiveProject
‘ 2. 初期プロパティの注入
‘ プロジェクトの整合性を保つための識別子を設定
newProj.ProjectSummaryTask.Name = projectName
newProj.Title = projectName
newProj.Author = “Project Automation Engine”
‘ 3. ベースライン設定の準備（必要に応じて）
‘ 実務ではここでSaveBaselineを使用し、初期状態を保存する
newProj.SaveBaseline pjBaseline, pjBaselineCopyAll
‘ 4. ファイルの保存
‘ SaveAs時のフォーマット指定は必須。拡張子誤認による破損を防ぐ
newProj.SaveAs FileName:=savePath, FileFormat:=pjMPP
Exit Sub
ErrorHandler:
MsgBox “プロジェクト生成中に致命的なエラーが発生しました: ” & Err.Description, vbCritical
‘ ここにログ出力やクリーンアップ処理を記述
End Sub
—
実務で「生き残る」ための3つの鉄則
1. ファイルパスの完全修飾化
「相対パス」を信じてはいけない。VBAは実行時のカレントディレクトリが予期せず変更されるリスクがある。`Environ(“USERPROFILE”)` や `ThisWorkbook.Path` を活用し、常にフルパスで指定せよ。
2. オブジェクトのライフサイクル管理
`ActiveProject` を安易に使うな。もし複数のプロジェクトファイルを開いている状態でコードが走れば、意図しないファイルに対して処理が行われるリスクがある。常に `Set newProj = …` で生成された瞬間にそのオブジェクトをハンドリングし、以降の操作はその変数経由で行うべきだ。
3. データベース連携を見据えた設計
もし将来的にこのツールをSharePointやProject Online、あるいは外部DBと連携させるつもりなら、ファイル名やプロジェクトIDを命名規則で固定しておけ。VBA側で「どのファイルがどのプロジェクトか」を推論するロジックを組むと保守性が崩壊する。名前付けのルールこそが、最大の業務効率化ツールとなる。
次のステップへ
今回のコードは、自動化の「骨組み」に過ぎない。ここから先は、Excelの進捗表からタスクをインポートするロジックや、ガントチャートの書式を自動調整するサブルーチンを繋ぎ合わせていくことになる。
「自動化」とは、単に楽をすることではない。「誰もが同じ品質でプロジェクトを開始できる状態」を強制することだ。
君たちが書くコード一つで、現場のPMが救われる。その重みを背負って、次の行を書いてほしい。質問があればいつでも来い。エンジニアとしての矜持を持って答えよう。
