design_target: VBA_Win32API_Compatibility category: Office_Automation function: Ensuring 32bit/64bit compatibility for Win32 API calls using Conditional Compilation api_usage: Win32 API (e.g., GetTickCount) compatibility: Office 2007 (32bit) to Office 365 (64bit)
本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。
VBA Win32 API：条件付きコンパイルによる32bit/64bit互換性の確保
【背景と目的】
古いVBAプロジェクトを64bit環境で実行すると「DLLの呼び出しエラー」が発生し、APIを扱う際の互換性確保が実務上のボトルネックとなっています。
【処理フロー図】
Win32 APIを宣言する際の条件付きコンパイルの処理フローを示します。
graph TD
A["VBAコード読み込み"] --> B{"VBA7 環境か？"};
B -->|"Yes('Office 2010以降')"| C["#If VBA7 Then"]
B -->|"No('Office 2007以前')"| D[#Else]
C --> E["Declare PtrSafe Function"];
D --> F["Declare Function"];
E --> G["API呼び出し"];
F --> G;
G --> H["処理完了"];【実装：VBAコード】
Officeのバージョンとbit数に応じて、PtrSafe キーワードの使用有無を自動的に切り替える条件付きコンパイル構造を使用します。ここでは GetTickCount APIを例に、実行時間計測モジュールを作成します。
' ==========================================================
' モジュール名: API_Compatibility_Module
' 目的: Win32 APIの32bit/64bit互換宣言を実装
' ==========================================================
' ----------------------------------------------------------
' 条件付きコンパイルによるAPI宣言
' ----------------------------------------------------------
#If VBA7 Then
' VBA7以降 (Office 2010以降 / 64bit対応環境)
' 必須: PtrSafe キーワードを宣言に含める
' GetTickCount はシステム起動からの経過時間をミリ秒単位で返す
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#Else
' VBA6以前 (Office 2007以前 / 32bit専用環境)
' PtrSafe は不要（使用するとコンパイルエラーになる）
Private Declare Function GetTickCount Lib "kernel32" () As Long
#End If
Public Sub API_ExecutionTime_Test()
Dim startTime As Long
Dim endTime As Long
Dim elapsedMilliseconds As Long
' 速度向上処理: 画面更新を停止
Application.ScreenUpdating = False
' 処理開始時刻の取得
startTime = GetTickCount()
' ***************************************
' 高速化が要求される具体的な処理（例：配列操作）
' ***************************************
Const LOOP_COUNT As Long = 50000 ' 5万回
Dim data(1 To LOOP_COUNT) As Long
Dim i As Long
For i = 1 To LOOP_COUNT
data(i) = i * 2 ' 単純な計算を配列に格納
Next i
' ***************************************
' 処理終了時刻の取得
endTime = GetTickCount()
' 経過時間（ミリ秒）を計算
' GetTickCountは約49.7日ごとにゼロに戻るため、差分計算が安全
elapsedMilliseconds = endTime - startTime
Application.ScreenUpdating = True ' 画面更新を再開
' 結果出力
Debug.Print "--- 処理結果 ---"
Debug.Print "VBA環境判定: " & IIf(VBA7, "VBA7+ (64bit対応)", "VBA6- (32bit専用)")
Debug.Print "実行されたループ回数: " & LOOP_COUNT
Debug.Print "APIによる経過時間: " & Format(elapsedMilliseconds / 1000, "0.000") & " 秒"
End Sub
【技術解説】
1. 条件付きコンパイル #If VBA7 Then
VBA 7.0（Office 2010で導入）以降の環境でコンパイルを行うか否かを判定するプリプロセッサディレクティブです。
VBA7 = True: Office 2010以降（64bit環境を含む）で実行されます。この環境ではAPI宣言に
PtrSafeが必須です。VBA7 = False: Office 2007以前の32bit環境で実行されます。この環境では
PtrSafeを使用するとコンパイルエラーになります。
この構造により、一つのコードで古い環境と新しい環境の両方に対応する互換性が担保されます。
2. PtrSafe キーワード
PtrSafe (Pointer Safe) は、VBA 7.0以降で Declare ステートメントに使用が義務付けられているキーワードです。これがないと、64bit版のOfficeでVBAを実行した際にコンパイルエラーが発生します。
3. LongPtr 型の使用（補足）
今回の GetTickCount の戻り値は Long (32bit整数) で済みますが、ポインタやウィンドウハンドル（HWND）など、メモリアドレスを扱うAPIを宣言する場合は、引数や戻り値に LongPtr 型を使用する必要があります。
32bit環境 (
VBA7= False)：LongPtrはLong(4バイト) として機能。64bit環境 (
VBA7= True)：LongPtrはLongLong(8バイト) として機能。
LongPtr を使用することで、メモリアドレスのサイズが32bitか64bitかに関わらず、適切なメモリ領域を確保できます。
【注意点と運用】
1. 落とし穴：API宣言場所の厳守
Declare ステートメント（条件付きコンパイルを含む）は、標準モジュールのヘッダー部分（すべてのプロシージャの外側）に記述しなければなりません。標準モジュール以外のシートモジュールやクラスモジュールに宣言を記述すると、実行時エラーやコンパイルエラーの原因となります。
2. 戻り値の確認とエラーハンドリング
Win32 APIの多くは、成功時にゼロ以外の値、失敗時にゼロを返すなどの特定のルールを持っています。
' API呼び出しをTry...Catchで直接囲むことはできないため、戻り値チェックが重要
If startTime = 0 And Err.LastDllError <> 0 Then
' DLLエラーが発生した場合の処理
MsgBox "API呼び出しに失敗しました。"
Exit Sub
End If
エラーが発生した場合、特にポインタを渡すAPIではVBA全体がクラッシュ（非回復可能なエラー）する危険性があるため、引数の型 (As Long, As LongPtr, As String) はAPI定義に厳密に合わせる必要があります。
【まとめ】
Win32 APIの互換性を確保し、安定したVBA運用を実現するためのコツは以下の3点です。
条件付きコンパイルの徹底:
Declareステートメントを必ず#If VBA7 Then ... #Else ... #End Ifで囲み、環境に依存しない宣言構造を標準化する。PtrSafeの必須化: VBA 7.0以降の宣言には、安全なポインタ処理を保証するPtrSafeを必ず含める。ポインタ・ハンドルには
LongPtr: メモリアドレスやウィンドウハンドルを扱う際は、32bit/64bitでサイズが変わるLongPtr型を使用し、型ミスマッチを防ぐ。
