【入門編】【初心者向け】読み取り専用モードでのファイルオープンとバックグラウンド処理の基本 – Project VBA解析バイブル

Project VBA

2026.08.26

こんにちは。Project VBAの世界へようこそ。
もしあなたが今、「プロジェクトファイルを一つずつ開いて、手作業でデータをコピーしている」なら、今日でその苦行は終わりです。

Project VBAは、Excel VBAとは少し勝手が違います。プロジェクトファイルは非常に「重い」オブジェクトであり、不用意に開くとメモリを食いつぶし、最悪の場合はファイルが壊れるリスクさえあります。

今日は、「大量のプロジェクトファイルをバックグラウンドで安全に開き、必要な情報を抽出して、速やかに閉じる」という、自動化エンジニアの登竜門を伝授します。ここさえ押さえれば、あなたの業務効率は劇的に変わります。

—

自動化の鉄則、それは「触らぬ神に祟りなし」です。
目的が「データの抽出」だけなら、ファイルを書き込みモードで開く必要はありません。読み取り専用（ReadOnly）で開くことには、以下の大きなメリットがあります。

—

まずは、このテンプレートを脳に刻んでください。これが「Project VBAの作法」の基礎中の基礎です。

Sub ExtractProjectData()
Dim projApp As Object
Dim proj As Project
Dim filePath As String

‘ 対象ファイルのパスを指定（本来はループ処理などで自動化します）
filePath = “C:\Projects\SampleProject.mpp”

‘ 1. Projectアプリケーションをバックグラウンドで起動
Set projApp = CreateObject(“MSProject.Application”)
projApp.Visible = False ‘ 画面を非表示にして高速化

‘ 2. ファイルを読み取り専用で開く
‘ FileOpenExの引数: ReadOnly:=True が命です
projApp.FileOpenEx Name:=filePath, ReadOnly:=True

‘ 開いたプロジェクトを取得
Set proj = projApp.ActiveProject

‘ — ここにデータ抽出のロジックを書く —
Debug.Print “プロジェクト名: ” & proj.Name
‘ 例: タスク数をカウントする
Debug.Print “タスク総数: ” & proj.Tasks.Count
‘ ————————————-

‘ 3. 安全に閉じる
‘ pjDoNotSaveを指定することで、変更があっても保存せず即座に閉じる
projApp.FileClose SaveChanges:=pjDoNotSave

‘ 4. アプリケーション終了
projApp.Quit

‘ オブジェクトの解放
Set proj = Nothing
Set projApp = Nothing

MsgBox “抽出完了！”, vbInformation
End Sub

—

このコードを書く際、多くの人が以下のポイントでつまづきます。覚えておいてください。

古い参考書には `FileOpen` が載っていることがありますが、現在は `FileOpenEx` を使いましょう。より詳細なオプション（読み取り専用やパスワード指定など）を制御できるからです。

コードが途中でエラー終了すると、バックグラウンドで `MSProject.exe` がゾンビのように残り続けます。タスクマネージャーを開く羽目にならないよう、エラーハンドリング（`On Error GoTo`）とセットで終了処理を書くのがプロの嗜みです。

`Set proj = Nothing` は地味に見えますが、大量のファイルを処理するループの中でこれをサボると、メモリリークを起こしてPCが重くなります。使い終わった箱は、必ず片付ける。これが美学です。

—

今回は1ファイルだけでしたが、実務ではフォルダ内の全ファイルを処理したくなるはずです。その時は、`Dir` 関数を使ってフォルダ内のファイル名をループさせ、上記のコードをその中に組み込んでください。

ここをクリアすれば、あなたはもう「マクロの記録」で悩む初心者ではありません。

プロジェクトの巨大なデータを、機械に淡々と、かつ正確に処理させる。この「エンジニアの視点」を持てた時点で、あなたは業務自動化の第一歩を踏み出しています。

何か不明な点や、さらに深い実装（ベースラインとの比較など）に興味があれば、いつでも聞いてください。焦らず、一歩ずつ進んでいきましょう。応援しています！