Microsoft ExcelのVisual Basic for Applicationsで、Excelが32ビットか64ビットか判定する

いまだに、Microsoft Office 2010を使わされているのである。 だからと言う訳ではないが、Visual Basic for Applications (VBA)を使うことがある。 その場合には、OLE DBを使ってデータベースにアクセスして取得したレコードセットを操作することが多い。

そこで問題になるのが、データベースサーバーがPostgreSQLの場合である。 公式のOLE DBライブラリーがWin64用には存在しないのである。 となると、ODBCドライバーをインストールし、バッチファイルでシステムデータソースを設定するしかない。 しかも、32ビットと64ビットでODBCドライバーの名前は異なるので、VBA内で切り替えなくてはいけない。

そういう場合に役立つのが、条件付きコンパイルである。 以下のように、定数Win64が真であるかどうかで判別すれば良い。

#If Win64 Then
  ' 64ビットMS Office用の処理
#else
  ' 32ビットMS Office用の処理
#end if

VBAでは何をするにも面倒なので、JavaScriptでもPythonでも良いので使えるようになって欲しい。

No comments:

Post a Comment

Dell XPS 13 (9300)を修理してもらった

2020年8月16日日曜日 15:30ころ 到着から8日目で起動しなくなってしまい、何度か電源ボタンを押していると、電源ステータスLEDが橙色が2回、白色が3回点滅するのを確認した。マニュアルによると、メモリー異常の場合であるらしい。修理窓口に電話すると、BIOSリカバリーや...