hiko-blog

VBA業務改善

MENU

vbsでExcelマクロ呼び出し起動

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