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

1 VBAでOfficeのバージョンを取得する方法
- 1.1 Excelと他のofficeのバージョンの取得
- 1.2 共有:

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

taka

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

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

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

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

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

カテゴリーで絞る

月で探す

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

taka

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