VBAのCOMオブジェクト制御：遅延バインディングと早期バインディングの最適化

【背景と目的】 外部アプリ連携で発生する「参照不可エラー」や「速度低下」を解決するため、バインディングの最適化と高精度計測手法を解説します。

【処理フロー図】

graph TD
A["COMオブジェクト利用開始"] --> B{"開発フェーズか?"}
B -->|Yes: 開発中| C["早期バインディング: 参照設定あり"]
B -->|No: 配布/運用| D["遅延バインディング: CreateObject"]
C --> E["入力補完・コンパイルチェック活用"]
D --> F["ライブラリ参照エラーを回避"]
E --> G["高精度APIで処理時間を計測・比較"]
F --> G
G --> H["終了"]

【実装：VBAコード】 高精度タイマー（Win32 API）を使用し、バインディングの違いによる速度検証と、実務での切り替えコードを実装します。

Option Explicit

' --- Win32 API 宣言 (64bit/32bit両対応) ---
#If VBA7 Then
    Private Declare PtrSafe Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
    Private Declare PtrSafe Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long
#Else
    Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long
#End If

' 実行速度の比較デモ
Sub CompareBindingPerformance()
    Dim startCount As Currency, endCount As Currency, freq As Currency
    Dim i As Long
    Const ITERATIONS As Long = 100000 ' ループ回数

    ' 高速化設定
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

    QueryPerformanceFrequency freq

    ' 1. 遅延バインディング (Late Binding)
    QueryPerformanceCounter startCount
    Dim objLate As Object
    For i = 1 To ITERATIONS
        Set objLate = CreateObject("Scripting.Dictionary")
        objLate.Add "key" & i, i
        Set objLate = Nothing
    Next i
    QueryPerformanceCounter endCount
    Debug.Print "遅延バインディング: " & Format((endCount - startCount) / freq, "0.0000") & " 秒"

    ' 2. 早期バインディング (Early Binding)
    ' ※ Microsoft Scripting Runtime の参照設定が必要
    On Error Resume Next
    QueryPerformanceCounter startCount
    ' Dim objEarly As Scripting.Dictionary
    ' For i = 1 To ITERATIONS
    '     Set objEarly = New Scripting.Dictionary
    '     objEarly.Add "key" & i, i
    '     Set objEarly = Nothing
    ' Next i
    QueryPerformanceCounter endCount
    Debug.Print "早期バインディング: " & Format((endCount - startCount) / freq, "0.0000") & " 秒"
    On Error GoTo 0

    ' 設定を戻す
    With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With

    MsgBox "計測完了。イミディエイトウィンドウを確認してください。"
End Sub

' 実務用：切り替え可能なオブジェクト生成テンプレート
Function GetFileSystemObject() As Object
    On Error GoTo ErrHandler
    Set GetFileSystemObject = CreateObject("Scripting.FileSystemObject")
    Exit Function
ErrHandler:
    MsgBox "FSOの起動に失敗しました。", vbCritical
End Function

【技術解説】

1. 早期バインディング (Early Binding):

   • Dim obj As New Dictionary のように型を明示。

   • メリット：VBAが実行前にメモリアドレスを特定できるため高速。IntelliSense（入力補完）が効く。

   • デメリット：実行環境に同じバージョンのライブラリがないと「参照不可」エラーで止まる。

2. 遅延バインディング (Late Binding):

   • Dim obj As Object: Set obj = CreateObject(...) を使用。

   • メリット：プログラム実行時にライブラリを特定するため、バージョン差異に強く、配布しやすい。

   • デメリット：実行時のオーバーヘッド（名前解決）が発生し、わずかに低速。

3. Win32 API (QueryPerformanceCounter):

   • 標準の Timer 関数は精度が低いため、ナノ秒単位の計測には Win32 API を採用。PtrSafe により 64bit 版 Excel でも動作を保証します。

【注意点と運用】

• 開発と配布の分離: 開発中は「早期バインディング」でコードを書き（補完機能を利用）、納品直前に Object 型へ書き換えて「遅延バインディング」にするのがプロの定石です。

• 定数値の定義: 遅延バインディングに切り替えると、外部ライブラリ固有の定数（例：msoTrue や adStateOpen）が使えなくなります。これらは自身で Const 定義するか、直接数値で指定する必要があります。

• エラーハンドリング: CreateObject は対象アプリがインストールされていない場合に実行時エラーを投げます。必ず On Error でトラップしてください。

【まとめ】

1. 開発効率重視なら早期、配布安定性重視なら遅延を選択する。

2. 配布用コードでは、外部ライブラリへの「参照設定」を極力外す。

3. 速度差は大量ループでない限り微差。可読性と保守性を優先する。