タスクスケジューラー 実行するVBSファイルとマクロファイル、マクロ名の設定

■プログラム/スクリプト：VBSファイルパス

Dim excelApp,macro

file = WScript.Arguments(0)
macro = WScript.Arguments(1)

Set excelApp = CreateObject("Excel.Application")

excelApp.Visible = False        'Excelを非表示にする
excelApp.DisplayAlerts = False  'ポップアップメッセージを非表示にする
excelApp.AutomationSecurity = 1 'マクロを有効にする

'Excelファイルを読み取り専用で開く
excelApp.Workbooks.Open file,3,False

WScript.Echo "---マクロを実行します---"

'マクロを実行する
excelApp.Run macro

WScript.Echo "---マクロの実行が完了しました---"

'Excelを終了する
excelApp.Quit

Set excelApp = Nothing

■引数の追加：マクロファイルパス マクロ名を入力

”C:\マクロ\123.xlsm” “Moduleマクロ名”