【VBA極限設計】64bit/32bitの境界を消し去る。API連携の「LongPtr」完全攻略
世の中の「VBA入門書」は、API連携の核心を教えません。なぜなら、彼らは「とりあえず動くコード」を書くことしか考えていないからです。
しかし、現場で生きる我々にとって重要なのは「32bit環境のレガシーPC」でも「最新の64bit環境」でも、一つのコードで沈黙を守り続ける堅牢性です。今日は、API連携で最も多くのアマチュアが躓き、バグを量産する「ポインタの型不一致」を完全に撲滅する極意を伝授します。
—
1. なぜ「Integer」や「Long」では足りないのか？
かつてのVBAでは、メモリアドレス（ポインタ）を扱う際に`Long`型（32bit）を使用していました。しかし、Office 2010以降、VBAは64bit環境にも対応しました。
ここで致命的な問題が発生します。64bit環境では、ポインタのサイズ自体が64bit（8バイト）に拡張されたのです。
- 32bit環境: ポインタ = 32bit (Longで足りる)
- 64bit環境: ポインタ = 64bit (Longでは溢れる)
この「サイズの変化」を無視してAPIを叩けば、メモリ破壊によるExcelの強制終了（クラッシュ）は免れません。これを解決する唯一の正解が、条件付きコンパイルと`LongPtr`型の採用です。
—
2. LongPtr と LongLong の役割分担
多くの人が混同していますが、使い分けは非常にシンプルです。
- LongPtr: 「環境によって自動的にサイズが変わる型」。ポインタやハンドル（hWndなど）を扱う時は、例外なくこれを使ってください。32bitなら4バイト、64bitなら8バイトに化けます。
- LongLong: 「常に64bit固定の整数型」。APIの引数に「64bit整数値」を直接要求された場合のみ使用します。ポインタとは別物です。
—
3. 【完全保存版】環境依存を排除するプロダクションコード
API定義（Declare）を行う際、以下の設計パターンをテンプレートとして使用してください。`#If VBA7` というディレクティブが、全ての苦悩を解決します。
‘ —————————————————————————
‘ API連携テンプレート：環境依存を排除する堅牢な宣言
‘ —————————————————————————
If VBA7 Then
‘ VBA7 (Office 2010以降) の場合：LongPtr を使用
Private Declare PtrSafe Function GetActiveWindow Lib “user32” () As LongPtr
Private Declare PtrSafe Function GetWindowText Lib “user32” Alias “GetWindowTextA” ( _
ByVal hwnd As LongPtr, _
ByVal lpString As String, _
ByVal cch As Long) As Long
Else
‘ VBA6 以前 (古いExcel) の場合：Long を使用
Private Declare Function GetActiveWindow Lib “user32” () As Long
Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA” ( _
ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
End If
‘ 実行用ラッパープロシージャ
Public Sub GetCurrentWindowInfo()
‘ ポインタを扱う変数は必ず LongPtr で定義する
Dim hWindow As LongPtr
Dim buffer As String 256
Dim ret As Long
hWindow = GetActiveWindow()
‘ これにより、32bit/64bit問わず安全にメモリ操作が可能になる
ret = GetWindowText(hWindow, buffer, 256)
Debug.Print “Window Handle: ” & hWindow
Debug.Print “Window Title: ” & Left(buffer, ret)
End Sub
—
4. アーキテクトからの忠告：設計上の注意点
この設計を導入するにあたり、以下の3点を必ず遵守してください。
1. 「PtrSafe」を忘れるな: VBA7以降のDeclare文には、必ず`PtrSafe`キーワードが必要です。これがないとコンパイルエラーになります。
2. APIの戻り値と引数を再確認せよ: MSDNやMicrosoft LearnでAPI仕様を確認してください。引数が`HANDLE`や`LPVOID`であれば、それは間違いなく`LongPtr`です。
3. 文字列の受け渡しに注意: APIがUnicodeを要求しているのか、ANSI（旧来のA付きAPI）なのか。ここを誤ると文字化けを引き起こします。現代の開発では、可能な限り`W`（Wide）系のAPIを使い、`StrPtr`関数を併用するのがプロの流儀です。
—
結論：コードは「環境」ではなく「仕様」に合わせる
VBAを単なる「事務作業の自動化ツール」と考えるのは今日で終わりにしましょう。APIを扱うということは、OSのメモリ構造と対話するということです。
`LongPtr`を正しく理解し、`#If VBA7`で環境を抽象化する。この小さな設計上の配慮が、あなたの作ったツールを「数年後に環境が変わっても、誰が使っても落ちない」プロフェッショナルなソフトウェアへと昇華させます。
さあ、あなたのコードから「環境依存のバグ」を一掃してください。それが、一流のエンジニアへの第一歩です。
