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

ページコンテンツ

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

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

どうも、takaです( ^ω^ )

今回は前回の【VBAでOSのバージョンを取得する方法】に続き今回はofficeのバージョンを取得する方法をご紹介します!(^^)!

Excelと他のofficeのバージョンの取得

バージョンを取得する場合は【Applicationオブジェクト】の【Version】プロパティを使用します(^^♪
Versionプロパティはバージョン番号を表す文字列型 ( String ) の値を返します。

バージョンは2013などで返されるわけではないのでお間違え無く(;^ω^)

返される値は以下の通りです。

Officeﾊﾞｰｼﾞｮﾝ	値
Office 95	7
Office 97	8
Office 2000	9
Office 2002	10
Office 2003	11
Office 2007	12
Office 2010	14
Office 2013	15
Office 2016	16

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

Excelの場合

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

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

Sub sample()

　Dim Excelver As String

Excelver = Application.Version

MsgBox "Excelバージョン：" & Excelver

End Sub

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

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

Excelからほかのofficeソフトのバージョンを取得する場合参照設定をする必要があります!(^^)!

今回は私のPCに唯一入っているAccessで試してみます。

まずExcelのVBEを開き

【ツール】→【参照設定】→Microsoft　Access　15.0 Object Libraryにチェックを入れてください

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

ぶっちゃけて言うとこの時点で15.0と記載されているのでバージョンがわかってしまうのですが…(笑)

では早速使ってみましょう ^^) _旦~~

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

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


End Sub