Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：６４ビットでＶＢＡを使用する方法

Ｏｆｆｉｃｅ３６５は、表計算ソフト、ワープロソフト、プレゼンテーションソフト、データベースソフト等が
入っているオフィスソフトです。これをインストールして置けば、家庭や仕事で多くの事が出来る様になります。

しかし、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ（６４ビット）でＶＢＡ使用中にエラーが発生しました。このＶＢＡは
、以前に使っていたＥｘｃｅｌ２０１６（３２ビット）では正常に作動していました。使用したパソコンは、下記
のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）バージョン1909（ＯＳビルド 18363.1198）
オフィスソフト　　：　Ｅｘｃｅｌ　ｆｏｒ　Ｍｉｃｒｏｓｏｆｔ　３６５　ＭＳＯ（16.0.13328.20350）
　　　　　　　　　　　６４ｂｉｔ

以下、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：６４ビットでＶＢＡを使用する方法を記載して行きます。

（項目１）
　・Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ（６４ビット）でＶＢＡ使用中にエラーが発生しました。このＶＢＡは
　　、以前に使っていたＥｘｃｅｌ２０１６（３２ビット）では正常に作動していました。

（項目２）
　・エラーは、以下の内容です。
　　コンパイルエラー：
　　このプロジェクトのコードは、６４ビットシステムで使用するために更新する必要があります。
　　Ｄｅｃｌａｒｅステートメントの確認および更新を行い、次にＤｅｃｌａｒｅステートメントに
　　ＰｔｒＳａｆｅ属性を設定してください。
　　

　・Ｅｘｃｅｌ（６４ビット）でＶＢＡがエラーとなる場合がある様です。

（項目３）
　・インターネットで色々と調べて見ると、WindowsAPI をOffice64bit版または32bit版のVBAで使うには | 　　　　hatena chipsが見つかりました。
　・上記によると、以下の２つが必要との事でした。
　　�@Declare の後に PtrSafe を挿入する。
　　�Aウィンドウハンドル、ポインタを表す関数の引数、戻り値の型は、Long型からLongPtr型に変更する。

（項目４）
　・ＶＢＡコードを以下の様に変更すると、正常に作動する様になりました。

　・変更前
　　Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
　　(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

　・変更後
　　Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" _
　　(ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long

（項目５）
　・以上で、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：６４ビットでＶＢＡを使用する方法は終了です。