【Project VBA】Active Directory連携によるリソースコストセンター自動化の極致
プロジェクト管理において、リソースのコスト管理は泥沼化しやすい。特にMS Project（以下MSP）のプロジェクトファイルが乱立する環境下で、手動の部署データ更新を強いるのは、システムエンジニアとしての怠慢と言わざるを得ない。
今回解説するのは、Active Directory (AD) から所属部署情報を引き抜き、MSPのリソースカスタムフィールドへ動的に注入するアーキテクチャである。VBA単体で完結させようとするな。OSの境界線を超え、メモリを制する者だけが、真の自動化という果実を手にできる。
—
1. アーキテクチャの核心：なぜActive Directoryから直接引くのか
ADは企業の「真実のソース（Source of Truth）」である。MSPのリソース管理画面で人間が入力したデータは、即座に陳腐化する。我々が求めるのは、組織変更のたびにメンテナンス不要な「自動同期」だ。
ここでの肝は、ADSI (Active Directory Service Interfaces) を用いたLDAPクエリの最適化と、MSPオブジェクトのライフサイクル管理にある。
—
2. 実装：AD連携・リソース更新のベストプラクティス
VBAからADにアクセスする際、最も避けるべきは不必要なCOMオブジェクトの生成と破棄の繰り返しだ。ここでは、`IADs` を用いた最小限のインターフェース経由でデータを取得し、MSPのリソースオブジェクトへ流し込む。
‘ 必要な参照設定: Active DS Type Library (activeds.tlb)
Option Explicit
Public Sub SyncResourceCostCenter()
Dim proj As Project
Dim res As Resource
Dim objAD As Object
Dim strLDAP As String
Set proj = ActiveProject
‘ メモリ最適化: オブジェクトの事前解放準備
On Error GoTo Cleanup
For Each res In proj.Resources
If Not res Is Nothing Then
‘ リソースのメールアドレス等をキーにADを検索
‘ LDAPパスは環境に合わせて構築する
strLDAP = “LDAP://CN=” & res.Name & “,OU=Users,DC=example,DC=com”
On Error Resume Next
Set objAD = GetObject(strLDAP)
If Err.Number = 0 Then
‘ CostCenterフィールド(例: Text1)に部署情報をマッピング
res.Text1 = objAD.Get(“department”)
End If
On Error GoTo Cleanup
‘ オブジェクトの明示的解放
Set objAD = Nothing
End If
Next res
Cleanup:
‘ 循環参照とメモリリークの防止
If Not objAD Is Nothing Then Set objAD = Nothing
Set proj = Nothing
End Sub
—
3. レガシー環境における「メモリ最適化」の真髄
VBAのガーベッジコレクションは信用するな。特にMSPのような巨大なオブジェクトモデルを扱う場合、`Set obj = Nothing` を怠ることは、即座にメモリリークへの直行便となる。
- スコープの最小化: 可能な限り変数宣言はループ内ではなく、処理単位の最小スコープに閉じ込める。
- Late Binding vs Early Binding: 開発時はEarly Bindingで型チェックを行い、本番環境でDLLのバージョン差異によるクラッシュを防ぐ必要があるなら、最終的に `CreateObject` を用いたLate Bindingへ切り替える勇気を持て。
- エラーハンドリングの徹底: ADへの接続は、ネットワークの瞬断や権限不足で容易に落ちる。`Err.Number` のチェックなしにAD連携を行うのは、無防備に戦場へ赴くのと同義だ。
—
4. 管理者への警鐘：なぜ今、この連携が必要か
この連携を実装する意義は、単なる「工数削減」ではない。「プロジェクトコストの透明化」である。
コストセンターを自動同期することで、以下のメリットが即座に享受できる。
1. 部門間クロスチャージの自動化: プロジェクトの工数実績とADの部署マスタが紐付くことで、経理部門へのデータ提出が1クリックで完了する。
2. 権限管理の正当性: ADの属性値が変われば、次回の同期で即座にプロジェクト上のコスト負担部署も更新される。人為的ミスという名の「毒」をシステムから排除できる。
—
最後に：エンジニアとしての矜持
VBAは、今なおレガシーの大海を泳ぐための最も強力な武器だ。だが、古い言語だからといって、設計思想まで古びる必要はない。
オブジェクトのライフサイクルを理解し、OSの深淵（API）を覗き、システム間のデータ整合性を担保する。これこそが、我々が果たすべき「自動化」の正体である。コードをただ書くのではなく、システムという生命体をいかに安定稼働させるか。その視点を持つ者だけが、真の自動化エンジニアと名乗る資格がある。
さあ、コードを叩け。そして、手作業という名の無駄を、この世から一掃するのだ。
