こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

回答受付中の質問

VBSでOFFICEのバージョンを取得するには?

PC情報を取得するVBSを作成しています。

作業手順はUSBにVBSを保存して、各PCにて実行する。
実行結果はVBSと同じフォルダにCSV形式(追加書き)で保存され10台で実行すると10行の一覧表が出来上がるという段取りです。

PC名、Windowsのバージョン、IEのバージョン、IPアドレスなど取得したい情報を取り出し、CSVに書き出し、まぁまぁ動くのですが、唯一OFFICEのバージョン(2007とか2010とか2013とか)を判別出来ず、判別不能で処理がVBSが終了してしまいます。

WINDOWS(7以降、XPもあるか?)でインストしているOFFICEのバージョンを取り出す方法を教えて下さい。あまり詳しくないのでコピペしてメモ帳でVBSとして保存すれば動く状態でご教授お願いします。

投稿日時 - 2017-12-07 08:41:19

QNo.9405225

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Excelのバージョンなら
Option Explicit
Dim objExcel, verExcel, Ver
Set objExcel = CreateObject("Excel.Application")
verExcel = int(objExcel.Version)
objExcel.Quit
Set objExcel = Nothing
If verExcel >= 16 Then
Ver = "2016"
ElseIf verExcel >= 15 Then
Ver = "2013"
ElseIf verExcel >= 14 Then
Ver = "2010"
ElseIf verExcel >= 12 Then
Ver = "2007"
ElseIf verExcel >= 11 Then
Ver = "2003"
ElseIf verExcel >= 10 Then
Ver = "2002"
ElseIf verExcel >= 9 Then
Ver = "2000"
ElseIf verExcel >= 8 Then
Ver = "97"
ElseIf verExcel >= 7 Then
Ver = "995"
ElseIf verExcel >= 8 Then
Ver = "不明"
End If
MsgBox "Excel" & Ver & " です。"

投稿日時 - 2017-12-07 11:37:26

ANo.1

検索すると見つかります。
私はBingで検索ワード「VBSでExcelのバージョンを取得」を使いました。
下記URLの「24.Officeバージョンの取得」にコードが載っています。
https://tunemicky.blogspot.jp/2012/08/vbscript-25.html

投稿日時 - 2017-12-07 11:33:01