VBSからVBAを実行してみる

VBSとVBAでそれぞれツールを作っていたのですが、
両方とも一度に実行したいと思い、VBSからVBAを呼ぶ事にしてみました。

VBSでVBAのマクロ呼び出しのボタンを押下し、保存するところまでを行います。
ExcelのApplicationオブジェクトである「Excel.Application」のオブジェクトを作成します。

Dim ExcelApp
Dim ExcelBook
Dim FilePath

FilePath = "ExcelVba.xls"

Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open(FilePath)
ExcelApp.ActiveWorkbook.Worksheets("マクロ呼び出しのボタンのあるシート名").select

ExcelApp.Visible = True

ExcelApp.Run "シート名.ボタン_Click()"

ExcelBook.Close True
ExcelApp.quit

Set ExcelApp = Nothing
Set ExcelBook = Nothing 

自動化して怠惰になれるところはどんどん怠惰になっていきたいですヾ(´▽｀;)ゝ