オブジェクトの「未初期化」は悪である：VBAにおける堅牢なインスタンス生成戦略
VBAの世界において、ランタイムエラーの温床の多くは「曖昧な初期化」にある。`Set`を忘れたオブジェクト変数、あるいはコンストラクタを持たないクラス定義。これらは時限爆弾だ。
本稿では、レガシー環境という制約の中で、いかにしてメモリを制御し、実行時エラーを根絶するか。その極致としての「Factoryパターン」と「Initializeの強制力」について、アーキテクトの視点から紐解く。
—
1. なぜ「New」を直接叩いてはいけないのか
多くの開発者は、`Dim obj As New MyClass` と記述する。これはVBAにおける「アンチパターン」の典型だ。この書き方は、変数を参照するたびに「インスタンスが存在するか？」という判定を背後で走らせる。パフォーマンスを著しく低下させるだけでなく、予期せぬタイミングでオブジェクトが再生成されるリスクを孕んでいる。
真のプロフェッショナルは、常に `Set` による明示的初期化を行う。
しかし、単なる `Set obj = New MyClass` では、初期値の注入ができない。ここで登場するのが「Factoryメソッド」である。
—
2. Factoryメソッドによる「強制初期化」の実装
クラスモジュールは、`Initialize` イベントを持つが、引数を取ることができない。これを補完するために、クラス内に静的（あるいは疑似静的）なFactoryメソッドを定義する。
実装例：`CResourceManager` クラス
‘ — クラスモジュール: CResourceManager —
Option Explicit
Private pID As Long
Private pConnectionState As String
‘ プロパティの公開（ReadOnlyにするのが鉄則）
Public Property Get ID() As Long: ID = pID: End Property
‘ Factoryメソッド：インスタンス生成と初期化を分離させない
Public Function Create(ByVal id As Long, ByVal state As String) As CResourceManager
Dim instance As New CResourceManager
‘ ここでバリデーションを挟むことで、不正な状態のオブジェクト生成を阻止する
If id <= 0 Then Err.Raise 9999, , "IDは正の整数である必要があります。"
instance.InitializeInternal id, state
Set Create = instance
End Function
' 外部から直接呼ばせない「非公開」の初期化メソッド
Friend Sub InitializeInternal(ByVal id As Long, ByVal state As String)
pID = id
pConnectionState = state
End Sub
この設計により、開発者は `New` を直接叩く必要がなくなり、`Create` メソッドを通すことで「初期値が空のオブジェクト」の生存を物理的に封じることができる。
---
3. メモリの規律：オブジェクトの「完全解放」
VBAのガーベジコレクション（RC: Reference Counting）を過信してはならない。特に循環参照が発生した場合、メモリリークは確実に発生する。Windows API連携などで非マネージドなリソースを扱う場合、このリークはシステム全体の不安定化を招く。
究極の解放パターン
Public Sub SafeTerminate(ByRef obj As Object)
‘ 参照カウンタが0になることを保証する
If Not obj Is Nothing Then
‘ 必要であればここで特定のクリーンアップメソッドを呼ぶ
‘ obj.Dispose
Set obj = Nothing
End If
End Sub
システム間連携や大容量のCSV解析を行う際、`Set obj = Nothing` を怠ることは「業務怠慢」と同義である。スコープを抜ける前に、明示的にリソースを返却せよ。
—
4. アーキテクトの視点：レガシー保守への適用
既存の巨大なVBAプロジェクトにこの設計を導入する場合、いきなり全てのクラスを書き換える必要はない。まずは「外部リソース（DB接続やAPI通信）を扱うクラス」からFactoryパターンを適用し、インターフェースを固定化する。
- バリデーションの集中: `Create` メソッド内にチェックロジックを寄せることで、デバッグ効率が飛躍的に向上する。
- シングルトンとの併用: システム設定のような「一意であるべきオブジェクト」には、Factory内にインスタンス保持フラグを立て、`If instance Is Nothing Then…` を組み込むことで、メモリ消費を最適化できる。
—
結論：コードの品格は「初期化」に宿る
「動けばいい」というコードは、いずれ必ず誰かの足を引っ張る。
オブジェクトのライフサイクルを設計し、インスタンスの生成条件を厳格に定義する。この手間を惜しまないことこそが、10年後も動く堅牢なシステムを構築するための唯一の道だ。
VBAはレガシーではない。使い手の設計思想によって、それは最も速く、最も直感的な業務自動化ツールに化ける。明日から、あなたのクラス定義に `Create` メソッドという「門番」を立たせてほしい。それが、プロの仕事だ。
