もくじ

taka



最新記事 by taka (全て見る)
- 『雑記』最近の私の話~ - 2019年9月26日
- 【動画】自作パソコン構成変更!ケースをNZXT H500に交換しました! - 2019年6月5日
- VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
- 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
- VBA 日付で令和を簡単に判定してみよう - 2019年5月7日
どうも、taka(@takabou63)です(^^)/
今回は前回の【VBAでOSのバージョンを取得する方法】に続き今回はofficeのバージョンを取得する方法をご紹介します!(^^)!
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


バージョンは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


参照設定の表記から確認
もう一つは参照設定の表記を確認する方法です
まずExcelのVBEを開き
【ツール】→【参照設定】→Microsoft Access 1〇.〇 Object Libraryを探しください。
※WordやPowerPointなどほかのofficeの場合は【Microsoft 〇〇 1〇.〇 Object Library】〇〇にそれぞれのソフト名とバージョンが書かれていますのでそれにチェックを入れてください。
下記の画像のように「Microsoft 〇〇 15.0 Object Library」の15の部分がバージョンとなります。
フォロー・チャンネル登録お願いします
VBA以外についてのブログはこちら↓
https://yb-log.com/■Twitterフォロー
Follow @taka_pc1027■YouTubeチャンネル登録
コメントを残す