【Project VBAを掌握する極限の知見】プロジェクト保存連動型・PDF自動生成＆日付別格納パイプライン
プロフェッショナルな現場において、定型作業の手動介在は「リスク」と同義である。
週次や月次の進捗報告のたびに、MS Projectの画面を開き、ビューを整え、印刷ダイアログからPDFを出力し、適切なフォルダ階層へ手作業でリネームして格納する——。この一連のルーチンワークに、どれだけの無駄な工数とヒューマンエラーの温床が潜んでいることか。
今回は、Project VBAのイベントハンドリングとファイルシステムオブジェクト（FSO）を極限までチューニングし、「プロジェクトの保存（Save）アクションに完全同期して、ガントチャートを自動的にPDF化し、当日の日付フォルダへセキュアに格納する」プロダクションコードを解説する。
中級者が陥りがちな「イベントの無限ループ」「ファイルロックの競合」「非同期保存時のタイミングズレ」といった罠を完全に回避し、現場でそのまま稼働する堅牢なアーキテクトコードを授けよう。
—
1. 堅牢な設計思想：なぜ「単なるマクロのボタン実行」ではダメなのか？
多くの初心者は、「PDF出力用マクロ」をボタンに割り当て、ユーザーに手動で押させようとする。これがナンセンスな理由は以下の通りだ。
1. 保存忘れと成果物の乖離: ユーザーが「保存する前にPDFを出力した」あるいは「PDFを出力した後に微修正して保存し忘れた」場合、リポジトリ（フォルダ）にあるPDFと実際のプロジェクトファイルの状態が一致しなくなる。
2. オペレーションコスト: ユーザーに「保存ボタンを押す前に、あっちのマクロを押してください」と強いるインターフェースは、システムとして欠陥品である。
解決策：Applicationイベントのフック
MS Projectには、アプリケーションレベルのイベントを捉える `App` オブジェクトが存在する。これを利用して、`ProjectBeforeSave` イベントをフックする。これにより、ユーザーが「上書き保存（Ctrl+S）」あるいは「名前を付けて保存」を実行した瞬間をトリガーとして、バックグラウンドでPDF生成パイプラインを走らせることが可能になる。
—
2. アーキテクチャの全体像
今回の自動化パイプラインは、以下の3つのレイヤーで構成する。
1. イベントリスナー層 (`ThisProject` / クラスモジュール): 保存イベントを検知し、多重実行ガードをかける。
2. ビジネスロジック層 (標準モジュール): パスカルケースの関数群。日付フォルダの動的生成、およびファイル名規則の適用。
3. エクスポート実行層: Projectの `FilePrint` または `DocumentExport` メソッド（※バージョン依存を吸収するラッパー）によるPDF化。
—
3. プロダクションコード実装
以下のコードは、エラーハンドリング、パスの動的解決、およびマルチセッション時の競合防衛策を組み込んだ実戦仕様である。
① 標準モジュール：`modPdfExportPipeline.bas`
ビジネスロジックとPDFエクスポートの核心部分を担う。
Option Explicit
‘ —————————————————————-
‘ モジュール名: modPdfExportPipeline
‘ 概要: プロジェクトのガントチャートをPDF化し、日付別フォルダへ格納する
‘ —————————————————————-
Public Sub ExecuteSaveAndExportPipeline(ByVal tskProject As Project)
Dim targetDir As String
Dim targetFileName As String
Dim fullPath As String
Dim fso As Object
On Error GoTo ErrorHandler
‘ 1. 保存対象のプロジェクトが有効か検証
If tskProject Is Nothing Then Exit Sub
If tskProject.Name = “” Then Exit Sub ‘ 未保存の新規ファイルなどは除外
‘ 2. 出力先ベースディレクトリの定義（環境に合わせて変更すること）
‘ 例: ネットワークドライブやローカルの共有リポジトリ
Const BASE_EXPORT_PATH As String = “C:\ProjectReports\GanttPDF\”
‘ 3. FileSystemObjectの初期化
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 4. 日付別フォルダパスの動的生成 (YYYYMMDD形式)
targetDir = BASE_EXPORT_PATH & Format(Date, “YYYYMMDD”) & “\”
‘ 5. ディレクトリが存在しなければ作成（再帰的に生成）
If Not fso.FolderExists(targetDir) Then
fso.CreateFolder targetDir
‘ ログ出力やイミディエイトウィンドウでの通知
Debug.Print “[Info] 新規日付フォルダを作成しました: ” & targetDir
End If
‘ 6. ファイル名の生成 (プロジェクト名_YYYYMMDD_HHMMSS.pdf)
‘ 拡張子を除いたプロジェクト名を取得
Dim baseProjName As String
baseProjName = fso.GetBaseName(tskProject.Name)
targetFileName = baseProjName & “_” & Format(Now, “YYYYMMDD_HHMMSS”) & “.pdf”
fullPath = targetDir & targetFileName
‘ 7. ビューの切り替え（ガントチャートがアクティブであることを保証）
‘ ※PDF出力はアクティブビューに依存するため、強制的にガントチャートへ切り替える
ViewApply Name:=”ガント チャート”
‘ 8. PDFエクスポートの実行
‘ MS Project 2010以降で標準的な Export メソッドを使用
‘ 第1引数: ファイルパス, 第2引数: フォーマット(pjPDFは定数または数値), その他オプション
Call ExportReportToPdf(tskProject, fullPath)
Debug.Print “[Success] PDFレポートの自動生成が完了しました: ” & fullPath
CleanUp:
Set fso = Nothing
Exit Sub
ErrorHandler:
MsgBox “PDF自動生成パイプラインで予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “Project VBA 自動化エラー”
Resume CleanUp
End Sub
Private Sub ExportReportToPdf(ByRef prj As Project, ByVal outputPath As String)
‘ MS ProjectのネイティブPDFエクスポート機能
‘ ※環境によってネイティブメソッドの挙動が異なるため、エラーフォールバックを用意
On Error GoTo NativeFailed
‘ DocumentExport メソッドを利用（Project 2013以降推奨）
prj.DocumentExport outputPath, pjPDF
Exit Sub
NativeFailed:
‘ フォールバック: 印刷レイアウトを通したPDFドライバー経由の出力が必要な古いバージョンの場合
‘ ここではモダン環境（pjPDF対応）を前提とするため、致命的エラーとしてスローする
Err.Raise Err.Number, “ExportReportToPdf”, “ネイティブPDFエクスポートに失敗しました。ファイルパスまたは権限を確認してください。” & vbCrLf & Err.Description
End Sub
② クラスモジュール（またはイベントハンドラ）：`clsAppEvents` または `ThisProject`
保存イベントをキャッチするための実装。プロジェクトファイルに組み込む場合は `ThisProject` モジュール、あるいはアドイン（Global.mpt）としてグローバルに適用する場合はクラスモジュールを用いる。
ここでは最も手堅い `ThisProject` への実装例を示す。
Option Explicit
‘ —————————————————————-
‘ モジュール名: ThisProject
‘ 概要: アプリケーション/プロジェクトレベルのイベントを捕捉
‘ —————————————————————-
Private Sub Project_BeforeSave(ByVal SvProject As Project)
‘ 【重要】無限ループや二重実行を防ぐためのフラグ制御
Static isExecuting As Boolean
If isExecuting Then Exit Sub
isExecuting = True
On Error GoTo SafeExit
‘ ビジネスロジックモジュールの呼び出し
Call ExecuteSaveAndExportPipeline(SvProject)
SafeExit:
isExecuting = False
End Sub
—
4. チーフアーキテクトが教える「現場でハマる罠」と回避策
このコードをそのまま導入するにあたり、実務で必ず直面する壁と、そのスマートな回避策を伝授する。
罠1: 「保存中」にイベントが多重発火する無限ループ
`Project_BeforeSave` の中でプロジェクトのプロパティを変更したり、別の保存処理を走らせたりすると、イベントが再帰的に呼び出され、ExcelやProjectがフリーズ（あるいはスタックオーバーフロー）を起こす。
- 対策: 上記コードの `Static isExecuting As Boolean` によるセマフォ（排他制御）パターンを必ず実装すること。これにより、処理中の再入を完全にブロックできる。
罠2: アクティブビューの不一致による「白紙PDF」問題
ユーザーが「リソース使用状況」や「タスクシート」を開いた状態で保存したとき、そのまま `Export` を叩くと、ガントチャートではなく意図しない表形式のデータがPDF化される。
- 対策: コード内で `ViewApply Name:=”ガント チャート”` を明示的に挟み、エクスポート対象のビューを強制的に担保しているのはそのためだ。さらに、処理終了後に元のビューに戻したい場合は、現在のビュー名を変数に退避させてから復元するロジックを追加するとより親切である。
罠3: ネットワークドライブの遅延とファイルロック
社内共有サーバー（UNCパス：`\\server\share\…`）へ直接PDFを出力する場合、ネットワークの微小なタイムラグによって `CreateFolder` や `DocumentExport` がタイムアウトエラーを起こすことがある。
- 対策: 本番運用では、一度ローカルのテンポラリーフォルダ（`Environ(“TEMP”)`）にPDFを出力し、FSOの `CopyFile` を使って目的の日付フォルダへアトミックに転送する方式をとると、ネットワーク起因のクラッシュをゼロにできる。
—
5. 導入手順と運用への展開
1. マクロ有効プロジェクトの作成: プロジェクトファイルを `.mpp` ではなく `.mhm` またはマクロ有効形式（組織のポリシーに従う）で保存する。
2. コードの配置: VBAエディタ（`Alt + F11`）を開き、上記コードを適切なモジュールにコピペする。
3. 参照設定の確認: 特殊な外部ライブラリは使用していない（標準の `Scripting.FileSystemObject` のみ）ため、初期状態で動作する。
4. セキュリティ設定: Projectの「トラストセンター」から、VBAマクロの実行を有効化する設定を組織の標準に合わせて行うこと。
結言
手作業によるPDF出力は、もはやエンジニアリングの領域において「存在してはならない無駄」である。
今回提供したパイプラインをあなたのプロジェクトに組み込むことで、「保存するだけで、最新のガントチャートがタイムスタンプ付きで自動アーカイブされる」という、盤石なナレッジマネジメント基盤が完成する。
妥協のないコードと堅牢な設計で、あなたのチームの生産性を極限まで引き上げろ。
