Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False ' Excelウィンドウを非表示にする
' Excelファイルのパス
strExcelPath = "C:\パス\MyExcelFile.xlsm"
' Excelファイルを開く
Set objWorkbook = objExcel.Workbooks.Open(strExcelPath)
' VBAマクロを実行
objExcel.Run "MyMacro"
' Excelを閉じる
objWorkbook.Close SaveChanges:=False
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing