オブジェクトの「初期化忘れ」は甘えだ。VBAを堅牢なシステムに変えるFactoryパターンの極意
Excel VBAで大規模なツールを構築しようとするとき、多くの開発者が陥る「死の罠」がある。それが、オブジェクト変数の初期化忘れ（Null Reference）だ。
`Set obj = New ClassName` を書き忘れたままメソッドを呼び出し、`実行時エラー 91` に見舞われる。あるいは、初期化はしたものの、必要なプロパティが設定されていない状態でロジックが走り、予期せぬデータ破壊を引き起こす。
「VBAだから仕方ない」などと自分に言い訳をするのは今日で終わりにしよう。VBAは、正しく設計すれば、業務システムとして十二分に戦えるツールだ。本日は、インスタンス生成の責任を一箇所に集約し、バグの発生を物理的に封じる「Factoryパターン」の極致を伝授する。
—
なぜ「Dimしただけ」のオブジェクトが危険なのか
VBAにおけるオブジェクト変数は、メモリ上の「参照先」を格納する箱に過ぎない。`Set` を通さなければ、その箱は空（Nothing）であり、そこにアクセスしようとすればVBAは悲鳴を上げる。
特に、ファイル操作やデータベース連携を行うクラスにおいて、「必要な初期値（接続文字列やファイルパスなど）」がセットされていない状態でのインスタンス生成は、時限爆弾を抱えて走るようなものだ。
これを防ぐための鉄則は一つ。
「コンストラクタ（初期化処理）を強制すること」である。
—
Factoryパターンによる「強制初期化」の実装
VBAにはJavaのような強力なコンストラクタ（引数付きインスタンス生成）は存在しない。しかし、`Class_Initialize` イベントと、専用の `Create` メソッドを組み合わせることで、実質的なコンストラクタを作成できる。
実践：堅牢なデータ接続クラスの設計
例えば、DB接続を管理するクラス `DatabaseConnector` を作る場合を考えよう。
1. クラスモジュール：`DatabaseConnector`
Option Explicit
‘ 外部からの直接生成を禁止し、Factory経由を強制する
Private pConnectionString As String
Private pIsInitialized As Boolean
‘ クラス生成時に自動実行される
Private Sub Class_Initialize()
pIsInitialized = False
End Sub
‘ 唯一の初期化入り口（Factoryメソッド）
Public Function Initialize(ByVal connString As String) As DatabaseConnector
If connString = “” Then Err.Raise 1001, , “接続文字列が空です。”
pConnectionString = connString
pIsInitialized = True
Set Initialize = Me
End Function
‘ 実行時の安全確認
Public Sub ExecuteQuery(ByVal sql As String)
If Not pIsInitialized Then
Err.Raise 1002, , “オブジェクトが初期化されていません。Factoryメソッドを使用してください。”
End If
‘ ここにDB接続処理を記述
Debug.Print “Connected to: ” & pConnectionString
End Sub
2. 標準モジュール：呼び出し側
Sub Main()
‘ × 悪い例：初期化を忘れるリスクがある
‘ Dim db As New DatabaseConnector
‘ db.ExecuteQuery “SELECT FROM Table” ‘ ここでエラー！
‘ ○ 良い例：Factoryを通すことで初期化を強制
Dim db As DatabaseConnector
Set db = New DatabaseConnector
Set db = db.Initialize(“Driver={SQL Server};Server=MyServer;Database=MyDB;”)
db.ExecuteQuery “SELECT FROM Users”
End Sub
—
この設計が「プロフェッショナル」である理由
1. 状態の保証: `pIsInitialized` フラグを設けることで、初期化が行われていないインスタンスが不正な操作を行うことを防ぐ。
2. 可読性の向上: 呼び出し側を見れば「何が必要なクラスなのか」が一目瞭然になる。
3. エラーハンドリングの集中: どこで失敗したかが明確になるため、デバッグ工数が劇的に削減される。
—
現場で差がつく「ファイル・DB連携」の注意点
実務でVBAを使う際、最も怖いのは「予期せぬタイミングでのメモリリークや接続の切断」だ。
- リソース解放の徹底: クラスの `Class_Terminate` イベントを活用せよ。DB接続オブジェクトやファイルハンドルは、ここで必ず `Close` や `Nothing` を実行する仕組みにすること。
- Factoryの集中管理: プロジェクトが大きくなってきたら、インスタンス生成を専門に行う `ServiceLocator` や `Factory` クラスを分離し、`New` キーワードを標準モジュールから排除せよ。これにより、将来的な依存関係の変更（例：テスト用モックへの差し替え）が容易になる。
—
結論：コードは「意図」を語らなければならない
VBAを書くことは、単に動くコードを書くことではない。「未来の自分が読んだときに、バグを混入させないための設計図」を書くことだ。
オブジェクトの初期化を適当に済ませるエンジニアは、一生バグの修正に追われることになる。しかし、Factoryパターンを習得し、インスタンス生成のライフサイクルを完全に掌握した者は、圧倒的なスピードで安定したツールを量産できる。
さあ、あなたのプロジェクトのクラスモジュールを見直してほしい。`Initialize` メソッドでガチガチに固められた、隙のないコードを実装する時が来た。
