VBSでExcelを開く際にインストール済みアドインを読み込む方法

#VBSでCreateObject("Excel.Application")を使用してブックを開くと、アドインが読み込まれない問題

詳細は下記ページを参照。
CreateObject コマンドを使用した場合、Excel でアドインが読み込まれない

VBSで開いたブックも、通常起動したブックと同様に扱いたいため困った。
環境によってどんなアドインがインストールされているかもわからないので、固定パスではできないし。

というわけで、起動したExcelからアドインの一覧を取得して、インストール済みアドインを開いてあげることに。
この開き方だと起動時のマクロ実行がされないようなので、マクロ実行もついでに。

#ソース

ExcelOpenAndLoadAddIn.vbs

Set oXlsApp = CreateObject("Excel.Application")

With oXlsApp
	.Visible = False
	.Workbooks.Open ("C:\Book.xlsx")
	For Each ad In .AddIns
		If True = ad.Installed Then
			.Workbooks.Open (ad.FullName)
			.Workbooks(ad.Name).RunAutoMacros 1
		End If
	Next
	.Visible = True
End With

Set oXlsApp = Nothing