VBAでOfficeのバージョンを取得する方法

バージョンで【13】がないのは、忌み数(不吉な数字)という理由だそうです(;´･ω･)

最近追加されたOffice2019も16で表示されました(私はOffice365ですが)

バージョンの表記例(Excelの場合)

Excelの場合は下記のように取得することができます。

Sub sample()  
  　Dim Excelver As String
    Excelver = Application.Version
    MsgBox "Excelバージョン：" & Excelver
End Sub

バージョンは15.0と返されました、これはExcel2013という意味です。

Excelからほかのofficeのバージョンを取得する

VBAを使って他のOfficeのバージョンを取得するにはいくつか方法があります。

私が知っている簡単な方法をご紹介します！

OLEを使用して取得する方法

まず1つは下記のようにCreateObject関数などを使って他のアプリケーションを操作をして取得する方法です。

下記のコードはインストールされているAccessのバージョンを取得します。

 Sub sample()
 
   Dim Excelver As String
   Dim Acver As String
   Dim Acapp As Object
   Set Acapp = CreateObject("Access.application")

    Excelver = Application.Version
    Acver = Acapp.Version
    MsgBox "Excelバージョン：" & Excelver & vbCrLf _
            & "Accessバージョン：" & Acver & vbCrLf _


End Sub

参照設定の表記から確認

もう一つは参照設定の表記を確認する方法です

まずExcelのVBEを開き

【ツール】→【参照設定】→Microsoft　Access　1〇.〇 Object Libraryを探しください。

※WordやPowerPointなどほかのofficeの場合は【Microsoft　〇〇　1〇.〇 Object Library】〇〇にそれぞれのソフト名とバージョンが書かれていますのでそれにチェックを入れてください。

下記の画像のように「Microsoft　〇〇　15.0 Object Library」の15の部分がバージョンとなります。