{ “status”: “production”, “style_guide”: “expert_office_automation”, “compliance”: “win32_ptrsafe_vba7”, “version”: “1.0” }

本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。

64ビットOffice対応：VBAにおけるWin32 APIの安全な実装と高速化技術

【背景と目的】 Officeの64ビット化に伴い、従来のAPI宣言ではコンパイルエラーが発生します。本書はPtrSafeとLongPtrを適切に使い分け、安定かつ高速なWindows連携を実現することを目的とします。

【処理フロー図】

graph TD
A["VBAプログラム開始"] --> B{"VBAバージョン判定"}
B -->|VBA7以上| C["PtrSafe属性を付与"]
B -->|それ以外| D["32bit互換宣言"]
C --> E{"データ型選定"}
E -->|ポインタ・ハンドル| F["LongPtr型を適用"]
E -->|32bit数値| G["Long型を適用"]
F --> H["Windows API実行"]
G --> H
H --> I["終了/結果返却"]

【実装：VBAコード】

Option Explicit

' --- Win32 API 宣言セクション ---
' VBA7（Office 2010以降）であればPtrSafeを使用
#If VBA7 Then

    ' ウィンドウのハンドル（HWND）を取得するAPI
    ' ポインタやハンドルを扱う引数・戻り値には LongPtr を使用する
    Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr

    ' ミリ秒単位のシステム時間を取得（数値データなので戻り値はLong）
    Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#Else

    ' 32bit版旧Office用の宣言
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long

    Declare Function GetTickCount Lib "kernel32" () As Long
#End If

''' <summary>
''' APIを使用した高速処理とウィンドウ検索の例
''' </summary>
Public Sub ExecuteAdvancedAutomation()
    Dim startTime As Long
    Dim hWnd As LongPtr

    ' 高速化設定：描画停止と計算手動化
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

    On Error GoTo ErrorHandler

    ' 処理開始時間の記録（API使用）
    startTime = GetTickCount()

    ' 例：電卓アプリのハンドルを探す（API連携）
    hWnd = FindWindow(vbNullString, "電卓")

    If hWnd <> 0 Then
        MsgBox "電卓のハンドルを取得しました: " & hWnd, vbInformation
    Else
        MsgBox "対象のウィンドウが見つかりません。", vbExclamation
    End If

    ' 擬似的な重い処理（配列等を用いたロジックを想定）
    ' ここに業務ロジックを記述

    ' 終了報告
    Debug.Print "処理時間: " & (GetTickCount() - startTime) & " ms"

CleanUp:
    ' 高速化設定の解除
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
    Exit Sub

ErrorHandler:
    MsgBox "エラー発生: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

【技術解説】

1. VBA7とPtrSafe: Office 2010以降のVBA（VBA7）では、64ビット環境でAPIを呼び出すために PtrSafe キーワードが必須です。これは「この宣言は64ビット環境で安全である」とコンパイラに伝える役割を持ちます。

2. LongPtr型の重要性: アドレス（ポインタ）やウィンドウハンドル（HWND）は、32ビット版では4バイト、64ビット版では8バイトになります。LongPtr 型を使用することで、実行環境に応じて自動的に適切なサイズへ調整され、メモリ破壊や強制終了を防ぎます。

3. Long型の維持: 座標、カウント数、フラグなどの「数値データ」については、64ビット環境でも4バイトの Long 型のままにする必要があります。すべてを LongPtr に変えると逆にエラーの原因となります。

【注意点と運用】

• 型変換の落とし穴: APIの引数リストを書き換える際、Win32 APIリファレンス（MSDN等）を確認し、それが「ポインタ(LP…)」なのか「数値」なのかを厳密に区別してください。

• デバッグの困難さ: API起因のクラッシュはVBAのエラーハンドリングをすり抜け、Excel自体を強制終了させます。引数の型が1つでも異なると危険なため、実装直後の保存は必須です。

• OSのビット数との混同: 「Windowsのビット数」ではなく「インストールされているOfficeのビット数」が基準です。64bit Windows上の32bit Officeでは LongPtr は4バイトとして動作します。

【まとめ】

1. 条件付きコンパイル (#If VBA7) を使い、旧バージョンとの互換性を保つ。

2. ハンドルやポインタのみを LongPtr に変更し、通常の数値は Long を維持する。

3. API処理の前後では ScreenUpdating の停止を組み合わせ、VBA全体のパフォーマンスを最大化する。