ページコンテンツ
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の場合は下記のように取得することができます。
1 2 3 4 5 | 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と記載されているのでバージョンがわかってしまうのですが…(笑)
では早速使ってみましょう ^^) _旦~~
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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 |
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63Sponsored Link
コメントを残す