【VBA】Excelマクロを定期的に自動実行する

# 最初に変数をまとめる
$excelFilePath = "C:\Users\javeo\Documents\テストマクロ.xlsm"  # マクロ入りファイルのフルパス
$macroNoArgs = "SampleMacro"                                  # 引数なしマクロ
$macroWithArgs = "ArgsMacro"                                  # 引数ありマクロ
$arg1 = "Hello"                                               # 引数その1
$arg2 = 12345                                                 # 引数その2
$token = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"                   # 通知用チャットワークのトークン
$roomId = "000000000"                                         # 通知用チャットワークのルームID
$scriptPath = $MyInvocation.MyCommand.Path                    # このps1のフルパス

# ファイル有無を最初にチェック
if (-Not (Test-Path $excelFilePath)) {
    # ファイルが見つからなかったらチャットワークで通知する
    $message = "「$excelFilePath」が見つかりませんでした。`nパスを変更する場合は「$scriptPath」を修正してください。"
    Invoke-RestMethod -Uri "https://api.chatwork.com/v2/rooms/$roomId/messages" `
        -Method Post `
        -Headers @{ "X-ChatWorkToken" = $token } `
        -Body @{ body = $message }
    return
}

# エラーハンドリングしつつエクセルマクロを実行
try {
    # Excelアプリケーションを起動
    $excel = New-Object -ComObject Excel.Application
    $excel.Visible = $false                                    #　画面は非表示にしておく

    # エクセルファイルを開く
    $workbook = $excel.Workbooks.Open($excelFilePath)

    # マクロを実行する ※マクロに引数がある場合は値を続けて入力するだけ
    $excel.Run($macroNoArgs)
    $excel.Run($macroWithArgs, $arg1, $arg2)

    # ファイルを保存して閉じる
    $workbook.Close($true)
    $excel.Quit()
}
catch {
    # マクロでのエラーはキャッチできないはずなのでじつはこの分岐には来ないはず
    $message = "「$excelFilePath」でエラーが発生しました。"
    Invoke-RestMethod -Uri "https://api.chatwork.com/v2/rooms/$roomId/messages" `
        -Method Post `
        -Headers @{ "X-ChatWorkToken" = $token } `
        -Body @{ body = $message }}
finally {
    # 最後に各プロセスを開放する
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
    [System.GC]::Collect()
    [System.GC]::WaitForPendingFinalizers()
}

# ファイル有無を最初にチェック
if (-Not (Test-Path $excelFilePath)) {
    # ファイルが見つからなかったらチャットワークで通知する
    $message = "「$excelFilePath」が見つかりませんでした。`nパスを変更する場合は「$scriptPath」を修正してください。"
    Invoke-RestMethod -Uri "https://api.chatwork.com/v2/rooms/$roomId/messages" `
        -Method Post `
        -Headers @{ "X-ChatWorkToken" = $token } `
        -Body @{ body = $message }
    return
}

# Excelアプリケーションを起動
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false                                    #　画面は非表示にしておく

# エクセルファイルを開く
$workbook = $excel.Workbooks.Open($excelFilePath)

# マクロを実行する ※マクロに引数がある場合は値を続けて入力するだけ
$excel.Run($macroNoArgs)
$excel.Run($macroWithArgs, $arg1, $arg2)

# ファイルを保存して閉じる
$workbook.Close($true)
$excel.Quit()

# 最後に各プロセスを開放する
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

-ExecutionPolicy Bypass -File "C:\Users\javeo\Documents\excel-macro-auto-run.ps1"

--headless powershell.exe -NoProfile -ExecutionPolicy Bypass -File"C:\Users\javeo\Documents\excel-macro-auto-run.ps1"