vba - Office のバージョンを対応するビットで検出する VBA

Question

Office 2010 の 32 ビットバージョンと 64 ビットバージョンの両方を使用しています。

Public Function checkbitversion() As Variant
#If VBA7 Then
    checkbitversion = "64"
#Else
    checkbitversion = "32"
#End If
End Function

ただし、すべてのマシンで常に 32 ビットになります。問題を克服するために助けが必要です。

score 0 · Accepted Answer

> HEREからの 2 番目のフォーラム投稿から、テストされていないこのコードを試してください。

Function Is64bit() As Boolean
Is64bit = Len(Environ("ProgramW6432")) > 0
End Function

彼は言うThe logic seems to be if that environment variable returns anything or not, as that parameter probably doesn't exist in the 32-bit version.

彼の説明によると、何かを返す場合は64ビット、それ以外の場合は32ビットです。

score 0 · Accepted Answer

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\version\Outlook の Bitness 値を確認します

上記のバージョンは、Outlook のバージョンに応じて 14.0 または 15.0 です。

2 に答える 2