プロジェクト保存時にPDFを自動生成せよ：MS Project VBAにおける「堅牢な」自動化実装術
MS ProjectのVBA開発において、安易な `ActiveProject.Save` に依存するコードは、システムの老朽化とともに破綻する。特にプロジェクトの進捗報告用PDFを自動生成するような「保存イベント」へのフックは、オブジェクトのライフサイクル管理と例外処理の甘さが、致命的なファイル破損やメモリリークを招く温床となる。
今回は、シニアエンジニア向けに、単なる自動保存を超えた「堅牢なアーキテクチャ」の設計指針を提示する。
—
1. 非同期的な思考：イベントハンドラの罠
Project VBAの `Project_BeforeSave` イベントは強力だが、ここでPDF出力という重い処理を同期的に走らせることは、UIのフリーズと競合のリスクを孕む。
重要なのは、「保存処理と出力処理を論理的に分離し、確実にオブジェクトを解放すること」だ。
核心となる実装パターン
PDF出力の際、`ReportPrint` や `Export` メソッドを呼ぶ前に、必ずビューの状態を退避させ、処理終了後に復元する。また、FileSystemObjectを用いた動的なフォルダ生成は、エラーハンドリングを怠れば再利用不可能なプロセスを生む。
‘ ThisProject モジュールに記述
Private Sub Project_BeforeSave(ByVal pj As Project, ByVal SaveAs As Boolean, ByRef Cancel As Boolean)
On Error GoTo ErrHandler
‘ PDF出力処理の実行
Call AutoExportPDF(pj)
Exit Sub
ErrHandler:
‘ 保存そのものをブロックしないためのフォールバック
MsgBox “PDF自動出力に失敗しました。詳細はログを確認してください。”, vbExclamation
End Sub
—
2. メモリ最適化とオブジェクトの生存戦略
VBAはCOMラッパーである。`Project.SaveAs` や `Export` を呼び出す際、背後では膨大なメモリが確保される。特にガントチャートのレンダリングはリソースを食う。
メモリリークを防ぐための鉄則
1. Withステートメントの安易な使用を避ける: 入れ子構造はデバッグを困難にし、オブジェクト参照を隠蔽する。
2. 明示的なNothing代入: ローカルスコープであっても、巨大なオブジェクト（`Application`, `Project`, `View`）は最後尾で解放せよ。
3. Windows APIによるファイルロックの回避: フォルダが存在しない場合に備え、`CreateDirectory` APIを呼び出すことで、FileSystemObjectの不必要なインスタンス化を避ける。
‘ API宣言（モジュールトップに配置）
If VBA7 Then
Private Declare PtrSafe Function MakeDir Lib “kernel32” Alias “CreateDirectoryA” (ByVal lpPathName As String, ByVal lpSecurityAttributes As Long) As Long
Else
Private Declare Function MakeDir Lib “kernel32” Alias “CreateDirectoryA” (ByVal lpPathName As String, ByVal lpSecurityAttributes As Long) As Long
End If
Private Sub AutoExportPDF(pj As Project)
Dim exportPath As String
Dim folderPath As String
folderPath = “C:\Reports\” & Format(Date, “yyyy-mm-dd”)
‘ APIを使って高速にフォルダチェック＆作成
If Dir(folderPath, vbDirectory) = “” Then
MakeDir folderPath, 0
End If
exportPath = folderPath & “\” & pj.Name & “_” & Format(Now, “HHnnss”) & “.pdf”
‘ レンダリングの制御（パフォーマンス最適化）
Application.ScreenUpdating = False
‘ PDF出力
‘ PDF出力はExportメソッドの第2引数に適切なフォーマットを指定
pj.Export ReportName:=”Gantt Chart”, ToFile:=exportPath, Format:=pjPDF
Application.ScreenUpdating = True
End Sub
—
3. レガシー環境への適合：システム間連携の視点
社内システム管理者が直面する最大の課題は、開発環境と本番環境の「パスの違い」である。コード内に絶対パスを埋め込むことは、技術的負債以外の何物でもない。
堅牢な構成のためのベストプラクティス
- 設定ファイル（INIまたはJSON）の外部化: パス設定はコードから分離し、環境変数または設定ファイルから読み込むこと。
- ログ記録の標準化: `Print #` を用いたシンプルなログ出力で十分だ。過剰なGUI通知は、無人バックアップやサーバ実行時にスクリプトを停止させる。
- プロジェクト属性の活用: `pj.ProjectSummaryTask.Text1` 等に、出力先フォルダの設定値を保持させる手法は、ファイルと設定を物理的に分離させないため、配布時の混乱を防ぐ。
—
チーフアーキテクトとしての助言
自動化の真髄は「コードを書くこと」ではなく、「失敗したときにシステム全体をいかに保護するか」にある。
PDF生成が失敗しても、プロジェクト本来の保存処理が止まってはならない。また、生成されたPDFの整合性が保証できなければ、それは無価値なゴミとなる。常に「処理の失敗を想定した例外処理」を実装し、コードの行数よりも「オブジェクトのクリーンアップ」に情熱を注いでほしい。
VBAはレガシーと言われるが、APIを叩き、メモリを制御し、OSと対話するそのアーキテクチャは、今なおエンタープライズの現場で最も信頼できる「黒衣」である。この道具を使いこなすのは、あなた自身だ。
