Project VBAを掌握する：TaskのNotesを抽出し、ドキュメント生成を自動化する極限の技術
現場の第一線で戦う諸君、今日もレガシーの海を泳いでいることだろう。
Project VBAを扱う際、多くの開発者が「TaskのNotesプロパティ」に苦戦する。ProjectのGUI上ではリッチテキストとして表示されるこのデータだが、VBAで抽出すると無残なRTF（リッチテキストフォーマット）タグが混入した文字列として返ってくる。これをそのまま報告書に貼り付ければ、プロフェッショナルとしての品位を疑われるのは明白だ。
今回は、このRTFを解析し、クリーンなテキストとして抽出し、ExcelやWordへ転送する自動化の核心を解説する。単なるコードの羅列ではなく、メモリ管理とシステム連携の観点から記述する。
—
1. RTFの呪縛を解く：Windows APIの活用
Notesプロパティから取得できるRTFデータは、解析が困難なバイナリ文字列だ。これを正規表現で強引に置換するような素人仕事は避けるべきである。
最も堅牢な手法は、非表示のRichTextBoxコントロールを動的に生成し、そこにデータを流し込んでから`.Text`プロパティを叩くことだ。これにより、OS標準のレンダリングエンジンを介して純粋なテキストを取り出すことができる。
実装の要点
- 遅延バインディングの回避: `MSComctlLib`の依存性を排除し、あえて実行時に動的生成することで、環境依存エラーを最小化する。
- オブジェクト解放の徹底: `Set = Nothing`を忘れる者は、巨大なプロジェクトファイルでメモリリークを引き起こす。
—
2. 実装コード：Task Notes Extraction Engine
このモジュールは、ProjectからTaskのNotesを抽出し、クリーンな文字列を返す核となる部分だ。
Option Explicit
‘ メモリ最適化のため、必要最小限の参照のみを行う
Public Function GetCleanNotes(ByVal targetTask As Object) As String
Dim rtfBox As Object
Dim rawData As String
rawData = targetTask.Notes
If Len(rawData) = 0 Then Exit Function
‘ プロセス内で非表示のRTFコントロールを生成
‘ 参照設定を避け、CreateObjectで生成するのがモダンなアーキテクトの作法
On Error Resume Next
Set rtfBox = CreateObject(“RICHTEXT.RichtextCtrl”)
On Error GoTo 0
If rtfBox Is Nothing Then
‘ コンポーネントが存在しない環境へのフォールバック
GetCleanNotes = “[Error: RichText Control not found]”
Exit Function
End If
‘ RTFデータを流し込み、Textプロパティで抽出
rtfBox.TextRTF = rawData
GetCleanNotes = rtfBox.Text
‘ 徹底的なメモリ解放：これがシステムを安定させる
Set rtfBox = Nothing
End Function
—
3. レポート生成のアーキテクチャ：Excelへのブリッジ
情報を抽出した後、Excelへ転送する際は「オブジェクトモデルの階層」を意識せよ。`Application.Excel`を直接操作する際は、バインドのコストを最小化するために、あらかじめ定義されたテンプレートブックを開き、データを書き込むのがセオリーだ。
Public Sub GenerateProgressReport()
Dim proj As Project
Dim tsk As Task
Dim xlApp As Object
Dim xlWb As Object
Set proj = ActiveProject
Set xlApp = CreateObject(“Excel.Application”)
Set xlWb = xlApp.Workbooks.Open(“C:\Templates\Report_Template.xlsx”)
Dim rowIdx As Long: rowIdx = 2
For Each tsk In proj.Tasks
If Not tsk Is Nothing Then
‘ 抽出したNotesをシートに転記
xlWb.Sheets(1).Cells(rowIdx, 1).Value = tsk.Name
xlWb.Sheets(1).Cells(rowIdx, 2).Value = GetCleanNotes(tsk)
rowIdx = rowIdx + 1
End If
Next tsk
xlApp.Visible = True
‘ 参照の解放
Set xlWb = Nothing
Set xlApp = Nothing
End Sub
—
4. チーフアーキテクトからの助言：真の安定稼働のために
諸君が今後、さらに大規模なシステムへこのロジックを組み込む際に留意すべき3つの鉄則を記す。
1. エラーハンドリングの局所化: Taskのループ中に発生する予期せぬエラーがシステム全体を停止させないよう、`GetCleanNotes`のような関数単位でエラーを封じ込めること。
2. APIの非同期性: 大規模なプロジェクトファイル（数千行のタスク）を扱う場合、一度のループですべてを処理しようとせず、プログレスバーを実装し、`DoEvents`を適切に配置してUIのフリーズを防ぐこと。
3. レガシーの継承: `RICHTEXT.RichtextCtrl`は64bit環境で時に挙動が怪しくなる。その場合は、.NETのクラスライブラリをDLL化し、COM Interop経由で呼び出すのが、現代における最高峰の解法だ。
VBAは枯れた技術ではない。適切な設計思想を持って扱えば、それは今なお最強の業務自動化ツールであり続ける。諸君のコードが、堅牢で美しいものであることを期待している。
