Project VBAの深淵：Notesフィールドを「構造化データ」として操る極限のアーキテクチャ
MS Projectの`Notes`フィールドは、単なるメモ帳ではない。それは、タスクのメタデータを格納するための「泥沼」であり、同時に、適切に制御すれば最強のレポートエンジンにもなり得る。
多くのエンジニアは、ここにベタ打ちの文字列を放り込み、後工程でパース不能なゴミデータに埋もれている。本稿では、Project VBAのオブジェクトモデルを掌握し、HTMLを介してNotesを「構造化データ領域」へと昇華させる極限の手法を解説する。
—
1. なぜ「Notes」にHTMLを埋め込むのか
Projectの`Task.Notes`プロパティはRTF（Rich Text Format）を内部的に保持しているが、VBAから直接リッチテキストを操作するのは正気の沙汰ではない。しかし、HTMLタグをシリアライズして格納しておけば、後続のBIツールやWebレポート生成において、以下のメリットが享受できる。
- クロスプラットフォーム互換性: HTMLであれば、Power AutomateやPython等の外部スクリプトで容易に解析可能。
- メタデータの分離: 業務進捗とHTML構造を分離し、可読性を担保できる。
- レガシーの継承: MS Projectの古いバージョンでも、テキストとして保持する限りデータが破壊されることはない。
—
2. 実装：Notes最適化のための構造化ハンドラ
まずは、オブジェクトのライフサイクルを考慮した、堅牢な格納プロシージャを提示する。メモリリークを許さないのがプロの流儀だ。
‘ @description TaskのNotesをHTML形式で安全に上書きする
‘ @param tsk 対象のTaskオブジェクト
‘ @param content HTML形式の文字列
Public Sub UpdateTaskNotesAsHTML(ByRef tsk As Object, ByVal content As String)
‘ メモリ最適化: 巨大な文字列操作は一時変数に置くことでヒープを節約する
Dim header As String
Dim footer As String
‘ HTML構造の定義（ここをテンプレート化するのが定石）
header = “
footer = “
”
‘ エラーハンドリング：オブジェクトの生存確認を怠らない
On Error GoTo Cleanup
If tsk Is Nothing Then Err.Raise 91, “UpdateTaskNotes”, “Task object is null.”
‘ Notesへの書き込み
‘ ProjectのNotesフィールドは大量データ時に遅延が発生するため、
‘ 文字列連結は極力避ける（あらかじめ整形してから流し込む）
tsk.Notes = header & content & footer
Cleanup:
‘ 明示的な解放は不要だが、参照型がスタックに残らないよう意識する
If Err.Number <> 0 Then
Debug.Print “Critical Error: ” & Err.Description
End If
End Sub
—
3. Windows APIによるメモリとレスポンスの制御
大規模プロジェクト（数千タスク）を扱う際、`Task.Notes`への頻繁なアクセスはProjectのプロセスを重くする。これを回避するため、Windows APIの`SendMessage`を活用し、UIの再描画を一時停止させるテクニックが有効だ。
‘ MS Projectの再描画を抑制するAPI呼び出しの定義
If VBA7 Then
Private Declare PtrSafe Function SendMessage Lib “user32” Alias “SendMessageA” ( _
ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Else
Private Declare Function SendMessage Lib “user32” ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
End If
Private Const WM_SETREDRAW = &HB
Public Sub BatchUpdateNotes(ByVal proj As Project)
‘ 画面描画の停止
SendMessage proj.Application.hwnd, WM_SETREDRAW, 0, 0
‘ ここで高速な一括更新処理を行う
‘ …
‘ 画面描画の再開
SendMessage proj.Application.hwnd, WM_SETREDRAW, 1, 0
proj.Application.CalculateAll ‘ プロジェクト全体の再計算を一度だけ呼ぶ
End Sub
—
4. シニアエンジニアへの提言：Notesは「一時保存領域」と割り切る
ここまでHTMLを活用するテクニックを解説したが、最後にアーキテクトとしての警告をしておく。
「NotesをDBの代わりにしてはいけない」。
Notesはあくまで、レポート生成までの「コンテナ」である。プロジェクトの全履歴をNotesに溜め込むのは、レガシーシステムの技術的負債を増やすだけだ。
1. 書き込み: VBAでHTML形式に整形し、Notesに流し込む。
2. 抽出: 外部スクリプト（Python等）で定期的にXML/HTMLを抽出し、外部DBにアーカイブする。
3. クリーニング: 定期的にNotesを初期化し、常に最新のレポート状態を保つ。
この「ストリーム型運用」こそが、数十年単位で保守されるMS Projectシステムを破綻させないための、唯一の解である。
VBAは、単なる自動化ツールではない。巨大なレガシー環境において、データとシステムを繋ぐ「接着剤」である。その接着剤をどう塗布するか。それが、エンジニアの腕の見せ所だ。
