【Project VBAを掌握する極限の知見】プロジェクト保存連動型：動的PDFレポート自動生成エンジンの構築
Microsoft Projectの標準機能によるPDF出力は、実務においてあまりにも融通がきかない。A4縦一枚に収まらない巨大なガントチャート、無駄な余白、そしてプロジェクトマネージャーが手作業で日付フォルダを作成し、ファイル名を命名してエクスポートするという非効率なルーティン。これらはエンジニアリングの観点から即座に根絶されるべき悪習である。
今回は、Projectのファイル保存イベント（`ProjectBeforeSave`）をフックし、実行日付に応じたディレクトリ構造を自動生成した上で、メモリリークを完全に排除したセキュアかつ高速なPDFレポート出力パイプラインを実装する。
レガシーなVBAの限界を理解し、COMオブジェクトのライフサイクルを支配する者だけが到達できる「極限の知見」をここに開示する。
—
1. アーキテクチャ設計と技術的課題の克服
本自動化ワークフローの核心は以下の3点にある。
1. イベントハンドリングの永続化: `ProjectBeforeSave`イベントを安全に捕捉し、無限ループや予期せぬ二重保存を防ぐ。
2. 動的ディレクトリ構築: Windows Script Host (WSH) またはFileSystemObjectを用い、存在しない日付階層フォルダをワンショットで生成する。
3. COMオブジェクトの正確なライフサイクル管理: MS ProjectのPDFエクスポート機能（`DocumentExport`等）は裏で重いプロセスを動かす。参照の解放を怠れば、Project本体のメモリリークやバックグラウンドプロセスのゾンビ化を招く。
—
2. 実装コード：完全版クラスモジュールとイベントハンドラ
以下のコードは、単なるマクロの寄せ集めではない。エンタープライズ環境での安定稼働を前提とした、堅牢なエラーハンドリングとメモリ管理を実装したプロダクションコードである。
標準モジュール：イベントの初期化とフック (`ModEventInitializer.bas`)
Option Explicit
‘ グローバル変数としてイベント受信用クラスを保持
Public EventClass As clsProjectEvents
Sub RegisterProjectEvents()
‘ イベント監視クラスのインスタンス化
Set EventClass = New clsProjectEvents
MsgBox “Project保存連動PDF自動生成エンジンが有効化されました。”, vbInformation, “System Architecture”
End Sub
Sub UnregisterProjectEvents()
‘ メモリ解放とイベント解除
Set EventClass = Nothing
MsgBox “イベント監視を解除しました。”, vbInformation, “System Architecture”
End Sub
クラスモジュール：イベント監視とPDF出力ロジック (`clsProjectEvents.cls`)
Option Explicit
‘ MS Projectのイベントを捕捉するための宣言
Private WithEvents PrjApp As Application
Private Sub Class_Initialize()
Set PrjApp = ActiveProject.Application
End Sub
Private Sub Class_Terminate()
Set PrjApp = Nothing
End Sub
‘ 保存直前イベントのフック
Private Sub PrjApp_ProjectBeforeSave(ByVal pj As Project, ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo ErrorHandler
Dim targetDir As String
Dim fileName As String
Dim fullPath As String
Dim fso As Object
‘ 新規未保存プロジェクトの場合は処理をスキップ（パスが確定しないため）
If pj.FullName = “” Or pj.Path = “” Then Exit Sub
‘ 1. 保存先ルートパスの定義（ここではプロジェクトと同じ親ディレクトリを基準とする）
targetDir = pj.Path & “\PDF_Reports\” & Format(Date, “YYYYMM”) & “\”
‘ 2. FileSystemObjectによるディレクトリの動的生成（存在確認付き）
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(targetDir) Then
Call CreateDeepFolder(fso, targetDir)
End If
‘ 3. 命名規則の適用: [プロジェクト名]_[YYYYMMDD_HHMMSS].pdf
fileName = fso.GetBaseName(pj.Name) & “_” & Format(Now, “YYYYMMDD_HHNNSS”) & “.pdf”
fullPath = targetDir & fileName
‘ 4. レポート出力の実行（メモリ最適化を意識したプロセス処理）
‘ 注意: Project 2010以降の DocumentExport メソッドを使用
Call ExportGanttToPDF(pj, fullPath)
‘ オブジェクトの明示的解放
Set fso = Nothing
Exit Sub
ErrorHandler:
MsgBox “PDF自動生成中に致命的なエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “Critical Error”
Set fso = Nothing
‘ 必要に応じて保存自体をキャンセルする場合は Cancel = True を設定
‘ Cancel = True
End Sub
‘ 再帰的なディレクトリ生成ヘルパー（FileSystemObjectの拡張）
Private Sub CreateDeepFolder(fso As Object, ByVal folderPath As String)
Dim parentPath As String
parentPath = fso.GetParentFolderName(folderPath)
If Not fso.FolderExists(parentPath) Then
CreateDeepFolder fso, parentPath
End If
If Not fso.FolderExists(folderPath) Then
fso.CreateFolder folderPath
End If
End Sub
‘ 最適化されたPDFエクスポート処理
Private Sub ExportGanttToPDF(ByRef targetProj As Project, ByVal outputPath As String)
On Error GoTo ExportError
‘ 画面描画を停止し、処理速度を極限まで引き上げる
App.ScreenUpdating = False
‘ ビューをガントチャートに強制切替（確実な出力のため）
ViewApply Name:=”ガント チャート”
‘ ドキュメントのエクスポート実行
‘ ※環境やProjectのバージョンにより引数の調整が必要な場合があります
targetProj.DocumentExport outputPath, pjPDF,, pjTimescaleEnd_Finish
App.ScreenUpdating = True
Exit Sub
ExportError:
App.ScreenUpdating = True
Err.Raise Err.Number, “ExportGanttToPDF”, “PDF出力に失敗しました: ” & Err.Description
End Sub
—
3. チーフアーキテクトが解説する「極限の知見」
オブジェクトのライフサイクルとメモリ管理の鉄則
VBA開発者が最も犯しやすい過ちは、`CreateObject` や `ActiveProject` などのCOM参照をローカル変数に溜め込み、スコープ抜けたあともメモリ空間に放置することである。特に `Scripting.FileSystemObject` や Excel / Word などの外部アプリケーション連携を行う場合、ガベージコレクションのタイミングが曖昧なVBAではメモリリーク（メモリ肥大化）が確実に発生する。
今回のコードでは、`clsProjectEvents` クラスの破棄時（`Class_Terminate`）に確実な参照切断（`Set PrjApp = Nothing`）を行い、プロセスのゾンビ化を防いでいる。
レガシー環境とバージョン差異への備え
MS Projectはバージョン（2013, 2016, 2019, 2021, Microsoft 365）によって、内部オブジェクトのメソッドやPDFエクスポートのエンジンが微妙に異なる。
特に `DocumentExport` メソッドは強力だが、出力時にアクティブなビューやタイムスケールの状態に強く依存する。そのため、スクリプト内で強制的に `ViewApply Name:=”ガント チャート”` を実行し、どのユーザーがどの画面を開いていたとしても、意図した通りの「ガントチャートのPDF化」が担保されるよう防御的プログラミング（Defensive Programming）を施している。
システム間連携を見据えた拡張性
生成されたPDFは、単にローカルフォルダに眠らせるべきではない。この `outputPath` 変数に対し、企業の共有サーバー（SharePoint / OneDriveの同期パス）や、RPA（UiPathやPower Automate）の監視フォルダのパスを動的に割り当てることで、「プロジェクトを保存するだけで、自動的に経営陣のダッシュボードへ最新の進捗PDFが飛ぶ」というシームレスなシステム間連携の基盤が完成する。
—
総括
VBAは「おもちゃの言語」ではない。背後にあるWindowsアーキテクチャとCOMの仕様を骨の髄まで理解していれば、企業の基幹システムを裏で支える強固な自動化エンジンへと昇華させることができる。
今回のコードをベースに、自社のディレクトリポリシーやセキュリティ要件に合わせたパスのカスタマイズを行い、手作業による無駄なオペレーションを完全に過去のものとしてほしい。技術とは、自動化のためにある。
