本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。
VBAのWin32 API利用における64bit完全対応：Declare PtrSafeとLongPtrの定石
【背景と目的】
32bitから64bitへの移行時に発生するコンパイルエラーを防ぎ、OSレベルの制御を安全かつ高速に実行するための標準的な記述法を解説します。（66文字）
【処理フロー図】
graph TD
A["VBAマクロ開始"] --> B{"VBAバージョン判定"}
B -->|VBA7以上| C{"ビット数判定"}
C -->|64bit環境| D["PtrSafe + LongPtr を使用"]
C -->|32bit環境| E["PtrSafe + Long を使用"]
B -->|VBA6以下| F["旧来のDeclare文を使用"]
D --> G["API関数呼び出し"]
E --> G
F --> G
G --> H["終了"]
【実装：VBAコード】
Option Explicit
' --- Win32 API 宣言セクション ---
' VBA7（Office 2010以降）では PtrSafe 属性を付与
#If VBA7 Then
' 64bit/32bit両対応の宣言
' Sleep: 指定したミリ秒だけ処理を中断する
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' FindWindow: 指定したクラス名・ウィンドウ名からハンドルを取得
' ハンドル（hWnd）を扱う変数は、環境によりサイズが変わる LongPtr を使用する
Declare PtrSafe Function FindWindowA Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As LongPtr
#Else
' VBA6以前（旧レガシー環境）用
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function FindWindowA Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
#End If
''' <summary>
''' Win32 APIを使用した高速・低負荷な待機処理とウィンドウ制御の例
''' </summary>
Sub ExecuteSafeApiCall()
Dim hWnd As LongPtr ' 64bit環境では8byte、32bitでは4byteに自動調整される
Dim startTime As Double
' 高速化設定：描画更新とイベント発生を抑制
On Error GoTo ErrorHandler
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
' 1. ウィンドウハンドルの取得（API呼び出し）
' Excel本体のハンドルを取得する例
hWnd = FindWindowA("XLMAIN", Application.Caption)
If hWnd <> 0 Then
Debug.Print "Window Handleを取得しました: " & hWnd
Else
Debug.Print "Window Handleの取得に失敗しました。"
End If
' 2. 高精度な待機（API呼び出し）
' ExcelのWaitメソッドよりCPU負荷が低く、精度が高い
Sleep 500 ' 0.5秒待機
CleanUp:
' 設定の復元
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub
【技術解説】
PtrSafe属性: 64bit版OfficeでAPIを呼び出す際、「この宣言は64bit環境で動作するよう精査されている」ことをコンパイラに伝えるキーワードです。これがないと64bit環境ではコンパイルエラーとなります。
LongPtr型の役割: 実行環境のビット数に応じて、4バイト（32bit）または8バイト（64bit）に自動的にサイズが変わる型です。メモリのアドレス（ポインタ）やウィンドウハンドル（hWnd）を格納する際に必須となります。
条件付きコンパイル:
#If VBA7を使用することで、古いExcel（VBA6以前）との互換性を保ちつつ、最新環境への対応を一つのコード内で完結させています。
【注意点と運用】
データ型の厳密性: APIの引数すべてを
LongPtrにしてはいけません。例えば、時間（ミリ秒）を指定するdwMillisecondsは、64bit環境でも4バイトのLong型である必要があります。公式ドキュメントで各引数が「ポインタ（ハンドル）」か「数値」かを確認することが重要です。クラッシュのリスク: API呼び出しに引数の型や数が誤っていると、エラーにならずにExcelが即座に強制終了（アボート）します。コード実行前の保存を徹底してください。
【まとめ】
環境判別:
#If VBA7を使い、PtrSafe宣言を標準化する。型選択: ハンドルやポインタを扱う変数のみ
LongPtrを適用し、通常の数値はLongを維持する。安全策: API実行前には必ず
On Error処理とApplicationプロパティの復元ロジックを組み込む。
コメント