もくじ
taka
最新記事 by taka (全て見る)
- VBAの静的変数について、静的変数使っていますか？ - 2018年9月21日
- Excel関数【LENB関数】文字列のバイト数を求める - 2018年9月20日
- Excel関数【Mod関数】割り算の余りを取得する - 2018年9月19日
- Excel関数【LEN関数】文字数をカウントする - 2018年9月18日
- VBA YahooAPIを使って２つの場所の経路を取得してみた - 2018年9月17日
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 |
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪ Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Follow @takabou63
使用OS：
コメントを残す