VBA技：Excel のバージョン番号を調べる方法

Application.Version プロパティを使うことで、Excel のバージョン番号を調べることができます。

① Excel ブックを用意して、標準モジュールに次のコードを記載します。

Public Sub Sample_getExcelVersion_01()

    ' Excel のバージョン番号を調べる。
    MsgBox Application.Version, vbOKOnly

End Sub

② Sample_getExcelVersion_01()を実行します。Excel のバージョン番号が表示されます。

FileSystemObject を使うことで、EXCEL.EXE ファイルのプロパティに記載されているファイルバージョンを取得することもできます。

③ GetFileVersion の引数には「EXCEL.EXE」のファイルパスをフルネームで指定します。

Public Sub Sample_getExcelVersion_02()

    ' FileSystemObject を用意する。
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' Excel の EXE ファイルのバージョン番号を調べる。
    MsgBox fso.GetFileVersion( _
        "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" _
    ) _
    , vbOKOnly
    
    ' FileSystemObject を解放する。
    Set fso = Nothing

End Sub

Sample_getExcelVersion_02()を実行します。Excel のバージョン番号が表示されます。