【テクニカル・上級編】【中級者向け】カスタムフィールドの値をExcelから読み込み、VBAでProjectに反映させる – Project VBA解析バイブル

【極限の同期】ExcelからMS Projectへのカスタムフィールド流し込み：データ整合性とメモリ管理の鉄則

現場のエンジニアが書くコードは、「動く」ことを目的としている。しかし、我々アーキテクトが書くべきコードは、「壊れない」こと、そして「大規模データにおいても制御不能に陥らない」ことを目的としなければならない。

MS Projectのカスタムフィールド（Task/Resource）へのデータ流し込みは、一見すると単純なループ処理に見える。しかし、Excelという「自由すぎるデータ構造」を、MS Projectという「厳格なスキーマを持つデータベース」へ同期させる作業は、一歩間違えればメモリリーク、オブジェクトの不整合、あるいはアプリケーションのハングアップを引き起こす。

本稿では、単なる「値の転送」を超え、エンタープライズ環境に耐えうる堅牢な同期ロジックの構築について、その真髄を解説する。

1. アーキテクチャの設計思想：なぜ単純なループでは足りないのか

多くの開発者が陥る罠は、Excelのセルを一つずつ読み取り、ProjectのTaskコレクションを `For Each` で回しながら、条件に一致するものを探して値を書き込むという手法だ。

この手法には、致命的な3つの欠陥がある。

1. 計算量の爆発（O(n*m)の悲劇）: Excelの行数 $n$ と Projectのタスク数 $m$ に対して、二重ループを組めば計算量は $n \times m$ となり、数千タスク規模では処理時間が指数関数的に増大する。
2. メモリの断片化: COMオブジェクト（Excel.Application, MSProject.Application）のライフサイクル管理を誤ると、プロセスが終了してもメモリ上に「幽霊プロセス」が残り続ける。
3. データ整合性の欠如: 書き込み中にエラーが発生した場合、どこまで書き込まれたのか、どのデータが不整合なのかを追跡する機構がない。

我々が採用すべきは、「インデックス・マッピング方式」である。Excelのキー（WBSや一意のID）をハッシュテーブル（Dictionaryオブジェクト）に格納し、Project側のオブジェクトへの参照を高速に解決する。

2. 実装：高効率・高信頼な同期エンジン

以下に、シニアエンジニアが実装すべき、メモリ最適化とエラーハンドリングを組み込んだコア・ロジックを示す。

Option Explicit

' --- Windows API: プロセスの応答性を維持するためのDoEvents代替、
' もしくは高精度タイマーが必要な場合に備えるが、ここでは標準的な
' 制御フローの中で、OSへのメッセージを返す手法を重視する。

''' <summary>
''' ExcelのマスターデータをMS Projectのカスタムフィールドへ同期する
''' </summary>
Public Sub SyncExcelToProjectCustomFields()
    ' 1. オブジェクト宣言 (Early Binding推奨: 参照設定が必要)
    ' 参照設定: Microsoft Excel 16.0 Object Library
    ' 参照設定: Microsoft Project 16.0 Object Library
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim projApp As MSProject.Application
    Dim projProj As MSProject.Project
    
    Dim dictTasks As Object ' Scripting.Dictionary
    Dim targetTask As MSProject.Task
    Dim lastRow As Long, i As Long
    Dim taskKey As String
    Dim updateCount As Long: updateCount = 0
    Dim errorCount As Long: errorCount = 0
    
    ' エラーハンドリングの初期化
    On Error GoTo ErrorHandler

    ' 2. インスタンスの取得と生存確認
    Set xlApp = GetExcelInstance()
    If xlApp Is Nothing Then Err.Raise vbObjectError + 513, , "Excelが起動していないか、アクセスできません。"
    
    Set xlWB = xlApp.Workbooks("Project_Master_Data.xlsx")
    Set xlSheet = xlWB.Sheets(1)
    
    Set projApp = MSProject.Application
    Set projProj = projApp.ActiveProject

    ' 3. パフォーマンス最適化: Projectの再計算と描画を停止
    projApp.ScreenUpdating = False
    projApp.DisplayAlerts = False
    ' Projectの計算モードを「手動」に切り替えることで、書き込みごとの再計算を防ぐ
    projApp.Calculation = pjManual 

    ' 4. インデックス作成 (O(n) の高速化)
    ' ProjectのTask IDまたはWBSをキーとして、Taskオブジェクトへの参照を保持する
    Set dictTasks = CreateObject("Scripting.Dictionary")
    For Each targetTask In projProj.Tasks
        If Not targetTask Is Nothing Then
            ' ここではWBSをキーとする例。設計に応じてID等に変更すること
            taskKey = targetTask.WBS
            If Not dictTasks.Exists(taskKey) Then
                dictTasks.Add taskKey, targetTask
            End If
        End If
    Next targetTask

    ' 5. データ同期プロセス (Main Loop)
    lastRow = xlSheet.Cells(xlSheet.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow ' 2行目（ヘッダー除外）から開始
        taskKey = Trim(xlSheet.Cells(i, 1).Value) ' A列: WBS
        
        If dictTasks.Exists(taskKey) Then
            Set targetTask = dictTasks(taskKey)
            
            ' --- バリデーション層 ---
            ' Excel側のデータ型チェック（例: B列はText1、C列はNumber1を想定）
            Dim valText As String: valText = CStr(xlSheet.Cells(i, 2).Value)
            Dim valNum As Double: valNum = Val(xlSheet.Cells(i, 3).Value)
            
            ' --- 書き込み層 ---
            ' カスタムフィールドへの代入
            targetTask.Text1 = valText
            targetTask.Number1 = valNum
            
            updateCount = updateCount + 1
        Else
            ' マッピング失敗時のログ記録
            Debug.Print "Warning: WBS [" & taskKey & "] がProject内に見つかりません。 行: " & i
            errorCount = errorCount + 1
        End If
        
        ' 大規模データ時のOSハングアップ防止
        If i Mod 100 = 0 Then DoEvents
    Next i

    ' 6. 終了処理
    projApp.Calculation = pjAutomatic
    projApp.ScreenUpdating = True
    
    MsgBox "同期完了。" & vbCrLf & _
           "更新件数: " & updateCount & vbCrLf & _
           "エラー件数: " & errorCount, vbInformation

CleanUp:
    ' 7. メモリ解放 (Object Lifecycle Management)
    ' 明示的にNothingを代入し、COM参照カウントをゼロにする
    Set dictTasks = Nothing
    Set targetTask = Nothing
    Set xlSheet = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
    Set projProj = Nothing
    Set projApp = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
           "Error No: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

''' <summary>
''' 実行中のExcelインスタンスを取得、なければ新規作成する
''' </summary>
Private Function GetExcelInstance() As Excel.Application
    On Error Resume Next
    Set GetExcelInstance = GetObject(, "Excel.Application")
    If GetExcelInstance Is Nothing Then
        Set GetExcelInstance = New Excel.Application
    End If
    On Error GoTo 0
End Function

3. 極限の知見：アーキテクトが留意すべき3つの要諦

I. オブジェクトのライフサイクルとCOMの罠

VBAにおいて、`Set obj = Nothing` は単なる作法ではない。特にExcelとProjectのような巨大なCOMアプリケーションを跨ぐ場合、参照カウントが適切にデクリメントされないと、VBAエディタを閉じても `Excel.exe` がタスクマネージャーに居座り続ける。これはメモリリークの典型例だ。
特に、ループ内で `Set targetTask = …` を行う際は、スコープが限定されていることを意識し、必ず明示的に解放するか、ループの終了時に一括で `Nothing` を代入する設計を徹底せよ。

II. 計算モード（Calculation Mode）の制御

MS Projectは、カスタムフィールドの値が書き換わるたびに、プロジェクト全体の計算（クリティカルパスの再計算、日付の連動など）を行おうとする。
数千のタスクに対してこれを繰り返せば、処理時間は数十分単位で遅延する。
`projApp.Calculation = pjManual` を実行し、すべての書き込みが完了した後に `pjAutomatic` に戻す。これは、DBにおける「トランザクション」の概念に近い。

III. データ整合性の「ガードレール」

Excelから読み込むデータは、常に「汚染されている」と想定して設計せよ。

• 型不一致: `Text1`（文字列型）に `Double` を入れようとする、あるいはその逆。
• 境界値: `Number1` に想定外の巨大な数値が入る。
• 欠損: WBSが空欄、あるいは重複している。

本コードでは `Dictionary` を用いて、Project側のWBSを事前にインデックス化している。これにより、Excel側のデータが不正であっても、Project側の既存構造を破壊することなく、エラーログを吐いて次の行へ進む「レジリエンス（回復力）」を持たせている。

結論

プロフェッショナルな自動化とは、単にタスクを肩代わりすることではない。システム間のデータの連続性を保証し、不測の事態においてもシステムの整合性を維持する仕組みを構築することである。

このコードをベースに、貴殿のプロジェクト特有のバリデーションロジックを組み込み、真に「堅牢な」自動化エンジンへと昇華させてほしい。