VBでエクセルのバージョンを指定して開く

質問

PCにEXCEL2002と2013がインストールされています。
VBでエクセルを起動し、マクロを実行したいのですが、その際に起動するエクセルのバージョンを指定したいと考えています。

以下でやると標準設定のEXCELが開いてしまい、バージョンの指定ができません。
Dim xlApp As New Excel.Application()
Dim xlBooks As Excel.Workbooks
xlBooks = xlApp.Workbooks
xlBooks.Open("C:\test.xls")
xlApp.Visible = True
xlApp.Run("test.xls!macro")

なにか方法はありますでしょうか？

回答No.1

chie65536（@chie65535）

以下のようにすると、起動するEXCEL2002を指定して起動できます。

Dim xlApp As Excel.Application
Dim xlBooks As Excel.Workbooks
Set xlApp = CreateObject("Excel.Application.10")
Set xlBooks = xlApp.Workbooks
xlBooks.Open ("C:\test.xls")
xlApp.Visible = True
xlApp.Run ("test.xls!macro1")

CreateObjectメソッドで指定する「バージョン番号」は

Excel 2016⇒16
Excel 2013⇒15
Excel 2010⇒14
Excel 2007⇒12
Excel 2003⇒11
Excel 2002⇒10
Excel 2000⇒9
Excel 97⇒8
Excel 95⇒7
Excel 5.0⇒5

を指定します。

Set xlApp = CreateObject("Excel.Application.10")

でEXCEL2002が、

Set xlApp = CreateObject("Excel.Application.15")

でEXCEL2013が起動します。