【入門編】【上級者向け】カスタムフィールドの定義をXML形式で一括インポートする高度な手法 – Project VBA解析バイブル

Project VBA

2026.11.15

Project VBAの深淵へようこそ：カスタムフィールドをXMLで制御する「設計者」への道

Project VBAの深淵へようこそ：カスタムフィールドをXMLで制御する「設計者」への道

こんにちは。プロジェクトの自動化、その迷宮へようこそ。

あなたが今、「マクロの記録」ボタンを押し、GUI（画面）で行った操作をコードに書き換える作業に終始しているとしたら……。それは素晴らしい第一歩です。しかし、もしあなたが「もっと大規模なプロジェクトを、もっとスマートに、もっと確実に制御したい」と願うなら、今日ここで、一段高いステージへと足を踏み入れてもらいましょう。

今日のテーマは、Project VBAの中でも最も泥臭く、かつ最も強力な領域の一つ。「カスタムフィールド（Task/Resource）の定義と計算式の自動設定」です。

それも、単に値を書き換えるだけではありません。「XML形式を活用して、フィールドの定義そのものを一括制御する」という、プロフェッショナルが現場で密かに使う高度な手法を伝授します。

「難しそう……」と身構える必要はありません。大丈夫、一つずつ紐解いていけば、必ずその本質を掴めますよ。

1. なぜ「マクロの記録」では足りないのか？

多くの初学者が陥る罠があります。それは、「値の入力」と「定義の作成」を混同してしまうことです。

例えば、「Text1というフィールドに『完了フラグ』という名前を付け、計算式で『[PercentComplete] > 90』と設定したい」としましょう。

初級者のアプローチ（値の操作）:

`ActiveProject.Tasks(1).Text1 = “完了”`
これは「すでにある箱に中身を入れる」作業です。しかし、箱（Text1）の名前が何であるか、どんな計算式を持っているかという「箱の設計図」を操作するのは、VBAの標準的なオブジェクトモデルだけでは非常に手間がかかり、時にはエラーの温床になります。

上級者のアプローチ（定義の操作）:

「プロジェクトの設計図（XML）を書き換えて、一気にインポートする」
これは「箱そのものを設計し、量産する」作業です。GUIをポチポチ操作したり、複雑なループを回したりするのではなく、データの構造そのものを支配するのです。

2. 核心：MS Projectの「魂」であるXML構造

Microsoft Projectのファイルは、本質的にXML（Extensible Markup Language）という形式のデータ構造で成り立っています。

プロジェクトを「XML形式で保存」してみると、驚くほど詳細な設計図が見えてきます。その中に、私たちが操作すべき``というタグが存在します。

XMLの中身を覗いてみよう（概念図）

XMLファイルを開くと、カスタムフィールドの定義は以下のようなイメージで記述されています。

<!-- カスタムフィールドの定義部分のイメージ -->
<CustomFieldDefinition>
    <FieldName>Text1</FieldName> <!-- 内部的な名前 -->
    <DisplayName>進捗ステータス</DisplayName> <!-- 画面上の表示名 -->
    <Type>1</Type> <!-- データ型（Text, Number, Dateなど） -->
    <Formula>[PercentComplete] &gt; 90</Formula> <!-- ここが魔法の計算式！ -->
</CustomFieldDefinition>

この `` の部分を、プログラムで書き換えてしまえばいいのです。GUIで一つずつ設定する手間を、XMLのテキスト操作に置き換える。これが、エンジニアリングによる「自動化の極致」です。

3. 実践：XMLエクスポートを活用した自動化ワークフロー

では、具体的な実装イメージを掴んでいきましょう。
「既存のプロジェクトから定義を抽出し、加工して、再度取り込む」という高度なフローを、VBAで制御する考え方です。

ステップ1：現在のプロジェクトをXMLとして書き出す

まずは、現在の設定を「設計図」として取り出すコードです。

Sub ExportProjectToXML()
    ' プロジェクトをXML形式でエクスポートする
    ' 保存先はデスクトップなど、アクセスしやすい場所を指定しましょう
    Dim filePath As String
    filePath = Environ("USERPROFILE") & "\Desktop\ProjectTemplate.xml"
    
    On Error GoTo ErrorHandler
    
    ' XMLとして保存（これにより、カスタムフィールドの定義も含まれます）
    ActiveProject.SaveAs Name:=filePath, Format:=pjXML
    
    MsgBox "設計図（XML）をデスクトップに書き出しました！" & vbCrLf & _
           "このファイルをテキストエディタで開いてみてください。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

ステップ2：XMLを解析し、定義を書き換える（ロジックの考え方）

ここからはVBAの範疇を超えて、XMLエディタや、あるいは別のスクリプト（PythonやVB.NET、あるいはVBA内のXMLDOM操作）で、`` セクションを書き換えるフェーズです。

【ここで陥りやすいエラーの注意点！】
1. 特殊文字の罠: XMLでは `<` や `>` はそのまま書けません。`<` や `>` と書く必要があります。計算式を書き換えるときは、ここを間違えるとファイルが壊れます。
2. データ型の不一致: `Text1`（文字列型）に `Number1`（数値型）の計算式を入れようとすると、インポート時にプロジェクトがクラッシュします。

ステップ3：加工したXMLをプロジェクトとして読み込む

書き換えた「究極の設計図」を、新しいプロジェクトとして開きます。

Sub ImportCustomFieldTemplate()
    ' 書き換えたXMLをプロジェクトとして開く
    Dim filePath As String
    filePath = Environ("USERPROFILE") & "\Desktop\ProjectTemplate.xml"
    
    ' ファイルが存在するかチェック
    If Dir(filePath) = "" Then
        MsgBox "設計図が見つかりません！まずエクスポートしてください。", vbExclamation
        Exit Sub
    End If
    
    ' XMLファイルをプロジェクトとして開く
    ' これにより、カスタムフィールドの定義がすべて反映された状態で開始されます
    FileOpen Name:=filePath, Format:=pjXML
    
    MsgBox "新しい設計図に基づいたプロジェクトを起動しました。", vbInformation
End Sub

4. まとめ：エンジニアとしての視点を持つ

いかがでしたか？
「マクロの記録」で得られるコードは、あくまで「操作の記録」に過ぎません。しかし、今回紹介したXMLを活用した手法は、プロジェクトの「構造（Schema）」を操作する、より根源的なアプローチです。

この手法をマスターするためのロードマップを置いておきますね。

1. まずは「保存」から: `SaveAs` でXML形式のファイルを作り、その中身をテキストエディタ（VS Codeなど）でじっくり眺めてください。「あぁ、私の設定はここに書いてあるのか！」という発見が、理解を深めます。
2. 「値」ではなく「定義」を見る: VBAで `Task.Text1 = …` と書く前に、「そもそもText1はどう定義されているべきか？」を考える癖をつけてください。
3. XMLDOMの学習へ: もし、XMLの書き換えすら自動化したいなら、VBAの `MSXML2.DOMDocument` オブジェクトを調べてみてください。それが、真の自動化エンジニアへの扉です。

ここをクリアすれば、Project VBAの基本はバッチリですよ。
あなたはもう、単なる「マクロ使い」ではありません。プロジェクトの構造を設計する「アーキテクト」への道を歩み始めています。

応援しています。また次の深淵でお会いしましょう！