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

1 Excelと他のofficeのバージョンの取得
- 1.1 バージョンの表記例(Excelの場合)
2 Excelからほかのofficeのバージョンを取得する

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

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

インストールされている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
Office2019	16

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

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

バージョンの表記例(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のバージョンを取得する

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

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の部分がバージョンとなります。

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

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

taka

最新記事 by taka (全て見る)