VBAでWin32APIの64bit対応自動変換プログラムを作ってみた

愛用マクロを64bit版Excelに早急に対応させる必要が出てきたので、ソースコード上のWin32APIのDeclare文を64bit対応に自動変換プログラムを作ってみたので紹介する。

なお、Declare文の変更だけでは完全に64bit対応とはならないので、実際に使う人はちゃんと勉強してから使うこと。

はじめに
サンプル
自動変換関数
- 事前準備と使い方
- ソースコード
使用例
- ソースコード
参考
- ツール
- 関連ツイート
まとめ

はじめに

つい先日(2017-2018年頃)まで、Microsoftは「32bit版 Excelを推奨」としていた。

実際に推奨設定でインストールした場合、32bit版が入ったと認識している。

ところがココ最近は推奨設定でインストールすると「64bit版 Excel」がインストールされるようになってしまった。

64bit版Excelになると何が困るかというと、VBAでWin32APIを使用している場合にDeclare文でコンパイルエラーが起こるのである。

---------------------------
Microsoft Visual Basic for Applications
---------------------------
コンパイル エラー:

このプロジェクトのコードは、64 ビット システムで使用するために更新する必要があります。Declare ステートメントの確認および更新を行い、次に Declare ステートメントに PtrSafe 属性を設定してください。
---------------------------
OK   ヘルプ   
---------------------------

解消方法については既にたくさんの情報が公開されているため割愛するが、既存の方法では一つ一つ書き換えていくのがとにかく「めんどくさい」のである。

特に「Office2007対応」が求められている場合は、宣言文が入れ子になりさらにめんどくさい。

というわけで、ソースコードを自動的に変換するプログラムを思いついたので即興で書いてみた。（開発時間4時間くらいなので、改善の余地はあると思うが自分のは完成したのでヨシ！）

サンプル

早速だが、今回用意した関数を使うと、ソースコード（文字列）は以下のように変換される。

変換前1

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

変換後1

#If VBA7 Then
    Private Declare PtrSafe Function SetCursorPos Lib "user32" Alias "SetCursorPos" ( _
                                            ByVal x As Long, _
                                            ByVal y As Long _
                                            ) As Long
#Else
    Private Declare Function SetCursorPos Lib "user32" ( _
                                            ByVal x As Long, _
                                            ByVal y As Long _
                                            ) As Long
#End If

変換前2

Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPtr

変換後2

#If VBA7 Then
    #If Win64 Then
        Declare PtrSafe Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" ( _
                                            ByVal Point As LongLong _
                                            ) As LongPtr
    #Else
        Declare PtrSafe Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" ( _
                                            ByVal xPoint As Long, _
                                            ByVal yPoint As Long _
                                            ) As LongPtr
    #End If
#Else
    Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" ( _
                                            ByVal xPoint As Long, _
                                            ByVal yPoint As Long _
                                            ) As Long
#End If