【執筆作法】
構造化：H1からH3の見出しを活用し、視認性を高める。
技術的正確性：Win32 APIの宣言には必ずPtrSafe属性を付与し、ハンドルやポインタにはLongPtrを使用する。
実用性：コピペで動作することを重視し、エラーハンドリングを含める。
言語：格調高い技術文書としつつ、注釈は親切に。
本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。
64bit環境でも安定動作！Win32 APIをVBAで安全に呼び出す実装ガイド
【背景と目的】
Officeの64bit化に伴うAPIエラーを解消し、システム情報の取得や画面制御などの高度な機能を安全かつ高速に実装する手法を解説します。
【処理フロー図】
graph TD
A["VBA実行開始"] --> B{"VBAバージョン判定"}
B -->|VBA7 / 64bit| C["PtrSafe + LongPtrを使用"]
B -->|VBA6以前 / 32bit| D["従来のDeclareを使用"]
C --> E["Win32 API関数の呼び出し"]
D --> E
E --> F["取得データの処理"]
F --> G["終了"]
APIの呼び出し前に条件付きコンパイルを行い、環境に合わせた宣言を自動選択するフローが実務上のスタンダードです。
【実装：VBAコード】
Option Explicit
' --- Win32 API 宣言セクション ---
' 条件付きコンパイルを使用して32bit/64bit両対応を実現
#If VBA7 Then
' 64bit版Office/VBA7用
' PtrSafeキーワードを必須とし、ハンドル(hWnd)やポインタにはLongPtrを使用
Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
ByVal hwnd As LongPtr, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#Else
' 32bit版Office用
Declare Function GetTickCount Lib "kernel32" () As Long
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
#End If
''' <summary>
''' 現在のアクティブウィンドウ名を取得し、処理時間を計測するサンプル
''' </summary>
Public Sub ExecuteApiProcess()
Dim startTime As Long
Dim endTime As Long
Dim activeHwnd As LongPtr ' 64bit対応のためLongPtrで定義
Dim titleBuffer As String * 255
Dim titleLength As Long
' 高速化設定
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
' 1. 処理開始時間の取得 (Win32 API使用)
startTime = GetTickCount()
' 2. アクティブウィンドウハンドルの取得 (Win32 API使用)
activeHwnd = GetActiveWindow()
' 3. ウィンドウタイトルの取得 (Win32 API使用)
titleLength = GetWindowText(activeHwnd, titleBuffer, Len(titleBuffer))
' 4. 結果の出力
Dim windowTitle As String
windowTitle = Left(titleBuffer, titleLength)
' ダミーの重い処理（配列処理など）
Dim i As Long
For i = 1 To 1000000: Next i
endTime = GetTickCount()
MsgBox "アクティブウィンドウ: " & windowTitle & vbCrLf & _
"実行時間: " & (endTime - startTime) & " ms", vbInformation
CleanExit:
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
Resume CleanExit
End Sub
【技術解説】
VBA7とPtrSafe: Office 2010以降のVBA（VBA7）では、Win32 APIを呼び出す際に
PtrSafe属性が必須となりました。これは「この宣言は64bit環境で安全に動作するよう見直されている」ことをコンパイラに示すものです。LongPtrの役割:
LongPtrは可変長データ型です。32bit環境では4バイト（Long相当）、64bit環境では8バイト（DoubleやCurrencyと同等のサイズ）として振る舞います。メモリ上の住所を示す「ハンドル（hWnd）」や「ポインタ」には必ずこれを使用します。高速化の理論:
GetTickCountなどのAPIは、VBA標準のTimer関数よりも高精度かつ高速にシステム時間を取得できます。また、ExcelのScreenUpdatingを制御することで、描画負荷を最小限に抑えています。
【注意点と運用】
データ型の混同: 関数の戻り値がすべて
LongPtrになるわけではありません。例えば、文字数やミリ秒などの「数値」を返すものは、64bit環境でもLong（4バイト固定）のままです。APIリファレンスを確認し、ポインタなのか数値なのかを厳密に区別してください。参照設定不要: Win32 APIはWindowsのコアライブラリ（user32.dll等）を直接呼ぶため、Excelの「参照設定」を増やす必要がありません。これにより、他者に配布した際の「参照不可エラー」を抑制できます。
デバッグの難易度: API呼び出しで引数の型や数を間違えると、VBAがエラーを出す前にExcelごと強制終了（クラッシュ）することがあります。保存してから実行する習慣を徹底してください。
【まとめ】
条件付きコンパイル（#If VBA7） を使い、32bit/64bit両方の環境で動く堅牢なコードを書く。
ハンドル・ポインタには LongPtr を、カウント・フラグには Long を適用してメモリエラーを防ぐ。
PtrSafe属性 を宣言に含めることで、64bit版Officeでのコンパイルエラーを回避する。
コメント