VBAでタスクスケジューラ登録と実行

Tech

VBAでタスクスケジューラ登録と実行

導入（問題設定）

日々の業務でExcel VBAを駆使している皆さんも、特定の時間になったら自動的にマクロを実行したい、あるいは週末にまとめてデータの集計を行いたいといったニーズに直面したことはないでしょうか？ Excelを開きっぱなしにしたり、手動でリマインダーを設定したりするのは非効率的で、ヒューマンエラーの温床にもなりかねません。

Windowsの「タスクスケジューラ」は、まさにこの問題に対する強力なソリューションです。しかし、多くのユーザーは手動でのGUI操作に留まりがちです。システム管理や自動デプロイメントの観点からは、手動操作は非効率であり、複数台のPCへの展開や設定変更のたびに手間がかかります。

そこで本記事では、VBAからWindowsのタスクスケジューラにプログラム的にタスクを登録・管理する方法を、COMインターフェースの深層に踏み込みながら解説します。表層的なHowToに終わらず、内部動作、境界条件、そして開発者が陥りがちな落とし穴まで、マニアックに掘り下げていきます。

理論の要点

Windowsのタスクスケジューラは、バージョン2.0（Vista以降）で大幅に刷新され、COM（Component Object Model）インターフェースを通じてプログラムから操作可能になりました。このAPIは Taskschd.dll に実装されており、VBAからは CreateObject 関数を使って利用できます。

Task Scheduler 2.0 APIの主要オブジェクト

VBAからタスクスケジューラを操作する上で鍵となるCOMオブジェクト群を見ていきましょう。これらは階層的な構造を持ち、タスクの定義、トリガー（実行条件）、アクション（実行内容）、設定などを細かく制御できます。

インターフェース名 説明
ITaskService タスクスケジューラサービスへの接続、タスクの登録、取得、削除を行うエントリポイント。CreateObject("Schedule.Service") でインスタンス化します。
ITaskFolder タスクが格納されるフォルダを表します。タスクスケジューラは階層構造を持っており、通常はルートフォルダから取得します。
ITaskDefinition 新しいタスクの定義全体を保持するオブジェクトです。タスクのアクション、トリガー、設定、プリンシパル（実行ユーザー）などをこのオブジェクトに追加・設定します。
ITriggerCollection ITaskDefinition オブジェクトに紐づくトリガー（実行条件）のコレクション。タスクがいつ実行されるかを定義します。
ITrigger (および派生) 個々のトリガーを表すインターフェース。例：
– ITimeTrigger: 特定の日時に一度だけ、または繰り返し実行。
– IDailyTrigger: 毎日または数日おきに実行。
– IWeeklyTrigger: 毎週または数週間おきに実行。
– IEventTrigger: イベントログの特定のイベントを契機に実行。
IActionCollection ITaskDefinition オブジェクトに紐づくアクション（実行内容）のコレクション。タスクが実行されたときに何を行うかを定義します。
IAction (および派生) 個々のアクションを表すインターフェース。例：
– IExecAction: プログラムを実行します。VBScriptやExcelマクロの実行に利用します。
– IMessageAction: メッセージボックスを表示します（非推奨）。
– IEmailAction: メールを送信します（非推奨）。
IPrincipal タスクを実行するユーザーアカウントと権限レベルを定義します。
ITaskSettings タスクの追加設定（成功失敗時の動作、履歴、バッテリー電源での動作など）を定義します。
IRegisteredTask 登録されたタスクのインスタンスを表し、タスクの実行状態の取得や、手動でのタスク実行、削除などを行います。

VBAとCOMの連携、そして64bit対応

VBAからCOMオブジェクトを利用する際、遅延バインディング (Late Binding) と 早期バインディング (Early Binding) の2つの方法があります。 本記事では、特定の参照設定を不要とし、コードの移植性を高めるために遅延バインディング (CreateObject) を採用します。これにより、コード実行時にオブジェクトの型が決定されるため、Object 型で宣言し、プロパティやメソッドは動的に解決されます。

PtrSafe と LongPtr は、主に Declare ステートメントで外部のWindows API関数を呼び出す際に、64bit環境でポインタやハンドルを正しく扱うためにVBA7（Office 2010以降）で導入されました。COMオブジェクトを Object 型で扱う限り、VBAが内部でポインタのサイズを適切に管理するため、直接的に PtrSafe や LongPtr を意識する場面は多くありません。しかし、COMインターフェースによっては LongPtr を返すプロパティや引数に取るメソッドが存在する可能性もあるため、VBA7以降の環境では LongPtr を使用できるという理解は重要です。今回扱うTask Scheduler COM APIでは、主に文字列、日付、Long型の値が使われるため、LongPtr の直接的な使用は限定的です。

主要定数一覧（Late Binding用）

参照設定なしで利用するために、以下の主要定数をVBAコード内で定義します。

定数名 値 説明
TASK_ACTION_EXEC 0 アクションの種類: プログラム実行
TASK_LOGON_INTERACTIVE_TOKEN 3 ログオンの種類: 対話型トークン（ユーザーがログオンしている場合と同じ権限）
TASK_LOGON_SERVICE_ACCOUNT 5 ログオンの種類: サービスアカウント（SYSTEM, LocalService, NetworkService）
TASK_RUNLEVEL_LUA 0 最低特権 (Least-Privilege User Account) で実行
TASK_RUNLEVEL_HIGHEST 1 管理者権限 (Highest-Privilege) で実行
TASK_TRIGGER_TIME 1 トリガーの種類: 特定時刻
TASK_CREATION 2 タスクの登録モード: 新規作成のみ
TASK_UPDATE 4 タスクの登録モード: 既存タスクを更新
TASK_CREATE_OR_UPDATE 6 タスクの登録モード: 新規作成または更新 (TASK_CREATION + TASK_UPDATE)
TASK_FLAG_HIDDEN 32 タスクを非表示にするフラグ
TASK_STATE_RUNNING 2 タスクの状態: 実行中
TASK_STATE_READY 3 タスクの状態: 準備完了
TASK_STATE_DISABLED 4 タスクの状態: 無効
TASK_STATE_QUEUED 5 タスクの状態: 待機中
TASK_STATE_UNKNOWN 6 タスクの状態: 不明

タスク登録フロー

タスクスケジューラにタスクを登録する際の一般的なフローを図で示します。

graph TD
    A["開始"] --> B{"TaskServiceオブジェクトの取得"};
    B --> C{"ルートフォルダへの接続"};
    C --> D{"新しいタスク定義オブジェクトの作成"};
    D --> E{"タスク設定 (ITaskSettings) の構成"};
    E --> F{"プリンシパル (IPrincipal) の構成"};
    F --> G{"トリガー (ITriggerCollection, ITimeTriggerなど) の追加"};
    G --> H{"アクション (IActionCollection, IExecActionなど) の追加"};
    H --> I{"タスク定義の登録 (RegisterTaskDefinition)"};
    I --> J["登録完了"];
    J --> K["COMオブジェクトの解放"];
    K --> L["終了"];

    subgraph エラー処理
        B -- 失敗 --> X["エラーハンドリング"];
        C -- 失敗 --> X;
        D -- 失敗 --> X;
        E -- 失敗 --> X;
        F -- 失敗 --> X;
        G -- 失敗 --> X;
        H -- 失敗 --> X;
        I -- 失敗 --> X;
    end

実装（最小→堅牢化）

ここでは、段階的にVBAコードを提示します。まずは必要最小限の機能でタスクを登録し、次にそれを堅牢なコードへと改善していきます。

共通モジュール（推奨）

COMオブジェクトの参照を確実に解放するために、共通で利用できるサブルーチンを用意します。

' 標準モジュール (例: modTaskSchedulerHelper)

#If VBA7 Then
Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As LongPtr)
#Else
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)
#End If

' COMオブジェクトを安全に解放する
Public Sub DisposeComObject(ByRef obj As Object)
    If Not obj Is Nothing Then
        ' Debug.Print "Disposing object: " & TypeName(obj)
        Set obj = Nothing
    End If
End Sub

' 汎用的なエラーハンドラ
Public Sub HandleError(ByVal ModuleName As String, ByVal ProcName As String)
    If Err.Number <> 0 Then
        Debug.Print "Error in " & ModuleName & "." & ProcName & ":"
        Debug.Print "Error No: " & Err.Number
        Debug.Print "Description: " & Err.Description
        Err.Clear
    End If
End Sub

' 主要なタスクスケジューラ定数（Late Binding用）
Public Const TASK_ACTION_EXEC As Long = 0
Public Const TASK_LOGON_INTERACTIVE_TOKEN As Long = 3
Public Const TASK_LOGON_SERVICE_ACCOUNT As Long = 5
Public Const TASK_RUNLEVEL_LUA As Long = 0 ' 最低特権
Public Const TASK_RUNLEVEL_HIGHEST As Long = 1 ' 管理者権限
Public Const TASK_TRIGGER_TIME As Long = 1
Public Const TASK_CREATION As Long = 2 ' タスクが存在しない場合のみ作成
Public Const TASK_UPDATE As Long = 4 ' タスクが存在する場合のみ更新
Public Const TASK_CREATE_OR_UPDATE As Long = 6 ' 存在しなければ作成、存在すれば更新
Public Const TASK_FLAG_HIDDEN As Long = 32 ' タスクを非表示にする
Public Const TASK_STATE_RUNNING As Long = 2
Public Const TASK_STATE_READY As Long = 3
Public Const TASK_STATE_DISABLED As Long = 4
Public Const TASK_STATE_QUEUED As Long = 5
Public Const TASK_STATE_UNKNOWN As Long = 6

' ログファイルパスを取得するヘルパー関数
Public Function GetLogFilePath(Optional ByVal fileName As String = "TaskSchedulerLog.log") As String
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    GetLogFilePath = fso.BuildPath(Environ("TEMP"), fileName)
    Set fso = Nothing
End Function

最小実装：シンプルなVBScriptを1回実行するタスク

ここでは、現在時刻から5分後に一度だけVBScriptを実行するタスクを作成します。VBScriptは簡単なログをファイルに出力するだけのものです。

' 標準モジュール (例: modTaskScheduler)

' 最小実装: シンプルなタスクを登録する
Sub CreateSimpleTaskSchedulerTask()
    Dim objTaskService As Object
    Dim objRootFolder As Object
    Dim objTaskDefinition As Object
    Dim objSettings As Object
    Dim objPrincipal As Object
    Dim objTriggers As Object
    Dim objTrigger As Object
    Dim objActions As Object
    Dim objAction As Object
    Dim objRegisteredTask As Object
    Dim strTaskName As String
    Dim strVBScriptPath As String
    Dim strVBScriptContent As String
    Dim fso As Object
    Dim ts As Object ' TextStream for VBScript file

    strTaskName = "MySimpleVBAJob_" & Format(Now, "yyyymmdd_hhmmss")

    On Error GoTo ErrorHandler

    ' 1. VBScriptファイルの作成
    Set fso = CreateObject("Scripting.FileSystemObject")
    strVBScriptPath = fso.BuildPath(Environ("TEMP"), strTaskName & ".vbs")

    strVBScriptContent = _
        "Dim fso, ts" & vbCrLf & _
        "Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf & _
        "Set ts = fso.OpenTextFile(""" & GetLogFilePath() & """, 8, True)" & vbCrLf & _
        "ts.WriteLine ""VBScript executed by Task Scheduler at: "" & Now()" & vbCrLf & _
        "ts.Close" & vbCrLf & _
        "Set ts = Nothing" & vbCrLf & _
        "Set fso = Nothing"

    Set ts = fso.CreateTextFile(strVBScriptPath, True)
    ts.Write strVBScriptContent
    ts.Close
    Set ts = Nothing
    Debug.Print "VBScript created at: " & strVBScriptPath

    ' 2. TaskServiceオブジェクトの取得と接続
    Set objTaskService = CreateObject("Schedule.Service")
    objTaskService.Connect
    Debug.Print "Connected to Task Scheduler service."

    ' 3. ルートフォルダへの接続
    Set objRootFolder = objTaskService.GetFolder("\")
    Debug.Print "Accessed root folder."

    ' 4. 新しいタスク定義オブジェクトの作成
    Set objTaskDefinition = objTaskService.NewTask(0)
    Debug.Print "New task definition created."

    ' 5. タスク設定 (ITaskSettings) の構成
    Set objSettings = objTaskDefinition.Settings
    objSettings.Enabled = True ' タスクを有効にする
    objSettings.Hidden = False ' タスクを非表示にしない
    objSettings.StopIfGoingOnBatteries = False ' バッテリー電源でも停止しない
    objSettings.WakeToRun = False ' PCがスリープ状態でも起動しない
    objSettings.AllowDemandStart = True ' 手動での実行を許可
    objSettings.ExecutionTimeLimit = "PT1H" ' 実行時間制限1時間 (ISO 8601 Duration Format)
    objSettings.DeleteExpiredTaskAfter = "P0D" ' 期限切れのタスクを削除しない (P0D=0日)
    Debug.Print "Task settings configured."

    ' 6. プリンシパル (IPrincipal) の構成
    Set objPrincipal = objTaskDefinition.Principal
    objPrincipal.UserID = Environ("USERNAME") ' 現在のユーザーで実行
    objPrincipal.LogonType = TASK_LOGON_INTERACTIVE_TOKEN ' 対話型トークン（ユーザーログオン時と同様の権限）
    objPrincipal.RunLevel = TASK_RUNLEVEL_LUA ' 最低特権で実行 (管理者権限が必要な場合は TASK_RUNLEVEL_HIGHEST)
    Debug.Print "Principal configured for user: " & objPrincipal.UserID

    ' 7. トリガー (ITriggerCollection, ITimeTrigger) の追加
    Set objTriggers = objTaskDefinition.Triggers
    Set objTrigger = objTriggers.Create(TASK_TRIGGER_TIME)

    With objTrigger
        .StartBoundary = Format(Now + TimeSerial(0, 5, 0), "yyyy-mm-ddThh:mm:ss") ' 現在から5分後に実行
        .EndBoundary = "2099-01-01T00:00:00" ' 期限は遠い未来
        .Enabled = True
    End With
    Debug.Print "Trigger added: " & objTrigger.StartBoundary

    ' 8. アクション (IActionCollection, IExecAction) の追加
    Set objActions = objTaskDefinition.Actions
    Set objAction = objActions.Create(TASK_ACTION_EXEC)
    With objAction
        .Path = "wscript.exe" ' VBScriptを実行するインタープリタ
        .Arguments = "//B """ & strVBScriptPath & """" ' VBScriptのパスを引数として渡す //Bはエラーダイアログ抑制
        .WorkingDirectory = fso.GetParentFolderName(strVBScriptPath) ' 作業ディレクトリ
    End With
    Debug.Print "Action added: " & objAction.Path & " " & objAction.Arguments

    ' 9. タスク定義の登録
    ' TASK_CREATE_OR_UPDATE: タスクが存在しなければ作成、存在すれば更新
    Set objRegisteredTask = objRootFolder.RegisterTaskDefinition( _
        strTaskName, objTaskDefinition, TASK_CREATE_OR_UPDATE, _
        Null, Null, TASK_LOGON_INTERACTIVE_TOKEN) ' UserIDとPasswordはPrincipalで設定済みのためNull

    Debug.Print "Task '" & strTaskName & "' registered successfully!"
    Debug.Print "Next Run Time: " & objRegisteredTask.NextRunTime

    GoTo CleanUp

ErrorHandler:
    Call HandleError(TypeName(Me), "CreateSimpleTaskSchedulerTask")

CleanUp:
    ' COMオブジェクトの解放は逆順に行うのが原則
    Call DisposeComObject(objRegisteredTask)
    Call DisposeComObject(objAction)
    Call DisposeComObject(objActions)
    Call DisposeComObject(objTrigger)
    Call DisposeComObject(objTriggers)
    Call DisposeComObject(objPrincipal)
    Call DisposeComObject(objSettings)
    Call DisposeComObject(objTaskDefinition)
    Call DisposeComObject(objRootFolder)
    Call DisposeComObject(objTaskService)
    Call DisposeComObject(ts)
    ' VBScriptファイルはタスク実行後に手動で削除する必要がある
    If Not fso Is Nothing Then
        If fso.FileExists(strVBScriptPath) Then
            ' fso.DeleteFile strVBScriptPath, True ' 動作確認のためここでは削除しない
        End If
        Set fso = Nothing
    End If
End Sub

堅牢化：タスクの管理、エラー処理、Excelマクロの実行

上記の最小実装をベースに、以下の機能を追加して堅牢化します。 – タスクの存在チェックと更新/削除 – 実行ユーザーとログオンオプションの詳細設定 – Excelマクロの実行に対応 – 詳細なエラーハンドリングとログ出力

' 標準モジュール (例: modTaskScheduler)

' 堅牢化されたタスクスケジューラ登録/更新関数
' @param taskName - 登録するタスクの名前
' @param actionPath - 実行するプログラム/スクリプトのパス
' @param actionArguments - 実行するプログラム/スクリプトの引数
' @param startDelayMinutes - 現在時刻から何分後にタスクを起動するか
' @param runAsUser - タスクを実行するユーザーID (省略時は現在のユーザー)
' @param runAsPassword - runAsUserが指定された場合のパスワード (省略可能)
' @param isExcelMacro - 実行するプログラムがExcelマクロであるか
Sub RegisterOrUpdateRobustTask( _
    ByVal taskName As String, _
    ByVal actionPath As String, _
    Optional ByVal actionArguments As String = "", _
    Optional ByVal startDelayMinutes As Long = 5, _
    Optional ByVal runAsUser As String = "", _
    Optional ByVal runAsPassword As String = "", _
    Optional ByVal isExcelMacro As Boolean = False _
)
    Dim objTaskService As Object
    Dim objRootFolder As Object
    Dim objTaskDefinition As Object
    Dim objSettings As Object
    Dim objPrincipal As Object
    Dim objTriggers As Object
    Dim objTrigger As Object
    Dim objActions As Object
    Dim objAction As Object
    Dim objRegisteredTask As Object
    Dim strFullActionPath As String
    Dim strFullActionArguments As String
    Dim logonType As Long
    Dim userIdToUse As String
    Dim passwordToUse As String
    Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    ' パスの正規化
    If fso.FileExists(actionPath) Then
        strFullActionPath = fso.GetAbsolutePathName(actionPath)
    Else
        Debug.Print "Error: Action path not found - " & actionPath
        GoTo CleanUp
    End If

    ' Excelマクロの場合の実行コマンドを調整
    If isExcelMacro Then
        Dim excelExePath As String
        excelExePath = "excel.exe" ' 環境によって異なるため、フルパス指定を推奨
        ' 例: excelExePath = Application.Path & "\excel.exe"

        ' Excelのフルパスを取得する（より堅牢にするため）
        Dim wshShell As Object
        Set wshShell = CreateObject("WScript.Shell")
        On Error Resume Next
        excelExePath = wshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe\Path") & "\excel.exe"
        On Error GoTo 0
        If excelExePath = "" Or Not fso.FileExists(excelExePath) Then
            ' 既定のパスを試すか、Application.Path (Excel実行中なら) を使う
            excelExePath = Application.Path & "\EXCEL.EXE"
            If Not fso.FileExists(excelExePath) Then
                Debug.Print "Error: Could not find Excel.exe path."
                GoTo CleanUp
            End If
        End If

        strFullActionArguments = actionPath & " /r """ & actionArguments & """" ' /r スイッチでマクロ実行
        strFullActionPath = excelExePath
    Else
        strFullActionArguments = actionArguments
    End If

    On Error GoTo ErrorHandler

    ' 1. TaskServiceオブジェクトの取得と接続
    Set objTaskService = CreateObject("Schedule.Service")
    objTaskService.Connect

    ' 2. ルートフォルダへの接続
    Set objRootFolder = objTaskService.GetFolder("\")

    ' 3. タスク定義の作成（既存タスクがあれば取得、なければ新規作成）
    Set objTaskDefinition = objTaskService.NewTask(0) ' 新規作成

    ' 4. タスク設定 (ITaskSettings) の構成
    Set objSettings = objTaskDefinition.Settings
    objSettings.Enabled = True
    objSettings.Hidden = False
    objSettings.StopIfGoingOnBatteries = False
    objSettings.WakeToRun = False
    objSettings.AllowDemandStart = True
    objSettings.ExecutionTimeLimit = "PT1H" ' 実行時間制限1時間
    objSettings.DeleteExpiredTaskAfter = "P0D" ' 期限切れのタスクを削除しない
    objSettings.StartWhenAvailable = True ' スケジュールされた開始時刻を逃した場合、利用可能になり次第実行
    objSettings.RunOnlyIfNetworkAvailable = False ' ネットワークが利用可能でなくても実行
    objSettings.DisallowStartIfOnBatteries = False ' バッテリー電源でも開始を許可

    ' 5. プリンシパル (IPrincipal) の構成
    Set objPrincipal = objTaskDefinition.Principal
    If runAsUser = "" Then
        ' 現在のユーザーで実行 (ログオンしていなくても実行される可能性がある)
        userIdToUse = Environ("USERNAME")
        logonType = TASK_LOGON_INTERACTIVE_TOKEN ' ユーザーの権限で実行
        objPrincipal.RunLevel = TASK_RUNLEVEL_LUA ' 最低特権 (必要に応じて TASK_RUNLEVEL_HIGHEST に変更)
        passwordToUse = "" ' パスワードは不要
    Else
        ' 指定されたユーザーで実行
        userIdToUse = runAsUser
        passwordToUse = runAsPassword
        logonType = TASK_LOGON_INTERACTIVE_TOKEN ' 指定ユーザーがログオンしている場合
        ' または、より高い権限が必要な場合は TASK_LOGON_SERVICE_ACCOUNT など
        ' objPrincipal.LogonType = TASK_LOGON_SERVICE_ACCOUNT ' LocalSystemなどのアカウント
        objPrincipal.RunLevel = TASK_RUNLEVEL_HIGHEST ' 管理者権限で実行
    End If

    objPrincipal.UserID = userIdToUse
    objPrincipal.LogonType = logonType

    ' 6. トリガーのクリアと再設定 (毎回新しいトリガーを作成するため)
    objTaskDefinition.Triggers.Clear
    Set objTriggers = objTaskDefinition.Triggers
    Set objTrigger = objTriggers.Create(TASK_TRIGGER_TIME)

    With objTrigger
        .StartBoundary = Format(Now + TimeSerial(0, startDelayMinutes, 0), "yyyy-mm-ddThh:mm:ss")
        .EndBoundary = "2099-01-01T00:00:00" ' 期限は遠い未来
        .Enabled = True
    End With

    ' 7. アクションのクリアと再設定
    objTaskDefinition.Actions.Clear
    Set objActions = objTaskDefinition.Actions
    Set objAction = objActions.Create(TASK_ACTION_EXEC)
    With objAction
        .Path = strFullActionPath
        .Arguments = strFullActionArguments
        .WorkingDirectory = fso.GetParentFolderName(strFullActionPath)
    End With

    ' 8. タスク定義の登録
    ' TASK_CREATE_OR_UPDATE: 存在しなければ作成、存在すれば更新
    ' UserID と Password は RegisterTaskDefinition の引数ではなく、Principal オブジェクトに設定する
    Set objRegisteredTask = objRootFolder.RegisterTaskDefinition( _
        taskName, objTaskDefinition, TASK_CREATE_OR_UPDATE, _
        userIdToUse, passwordToUse, logonType)

    Debug.Print "Task '" & taskName & "' registered/updated successfully!"
    Debug.Print "Next Run Time: " & objRegisteredTask.NextRunTime

    GoTo CleanUp

ErrorHandler:
    Call HandleError(TypeName(Me), "RegisterOrUpdateRobustTask")

CleanUp:
    ' COMオブジェクトの解放
    Call DisposeComObject(objRegisteredTask)
    Call DisposeComObject(objAction)
    Call DisposeComObject(objActions)
    Call DisposeComObject(objTrigger)
    Call DisposeComObject(objTriggers)
    Call DisposeComObject(objPrincipal)
    Call DisposeComObject(objSettings)
    Call DisposeComObject(objTaskDefinition)
    Call DisposeComObject(objRootFolder)
    Call DisposeComObject(objTaskService)
    Call DisposeComObject(fso)
    Call DisposeComObject(wshShell)
End Sub

' 既存のタスクを削除する関数
Sub DeleteTaskSchedulerTask(ByVal taskName As String)
    Dim objTaskService As Object
    Dim objRootFolder As Object
    Dim objRegisteredTask As Object

    On Error GoTo ErrorHandler

    Set objTaskService = CreateObject("Schedule.Service")
    objTaskService.Connect

    Set objRootFolder = objTaskService.GetFolder("\")

    ' タスクが存在するかチェック
    Set objRegisteredTask = Nothing
    On Error Resume Next
    Set objRegisteredTask = objRootFolder.GetTask(taskName)
    On Error GoTo ErrorHandler

    If Not objRegisteredTask Is Nothing Then
        objRootFolder.DeleteTask taskName, 0
        Debug.Print "Task '" & taskName & "' deleted successfully."
    Else
        Debug.Print "Task '" & taskName & "' not found. No deletion performed."
    End If

    GoTo CleanUp

ErrorHandler:
    Call HandleError(TypeName(Me), "DeleteTaskSchedulerTask")

CleanUp:
    Call DisposeComObject(objRegisteredTask)
    Call DisposeComObject(objRootFolder)
    Call DisposeComObject(objTaskService)
End Sub

' タスクをテスト実行する関数
Sub RunTaskSchedulerTask(ByVal taskName As String)
    Dim objTaskService As Object
    Dim objRootFolder As Object
    Dim objRegisteredTask As Object
    Dim objRunningTask As Object

    On Error GoTo ErrorHandler

    Set objTaskService = CreateObject("Schedule.Service")
    objTaskService.Connect

    Set objRootFolder = objTaskService.GetFolder("\")

    Set objRegisteredTask = objRootFolder.GetTask(taskName)
    If Not objRegisteredTask Is Nothing Then
        Debug.Print "Attempting to run task: " & taskName
        Set objRunningTask = objRegisteredTask.Run("") ' 引数なしで実行
        Debug.Print "Task '" & taskName & "' started. Instance ID: " & objRunningTask.InstanceGuid
    Else
        Debug.Print "Task '" & taskName & "' not found. Cannot run."
    End If

    GoTo CleanUp

ErrorHandler:
    Call HandleError(TypeName(Me), "RunTaskSchedulerTask")

CleanUp:
    Call DisposeComObject(objRunningTask)
    Call DisposeComObject(objRegisteredTask)
    Call DisposeComObject(objRootFolder)
    Call DisposeComObject(objTaskService)
End Sub


' 使用例
Sub Example_RobustTaskRegistration()
    Const MY_TASK_NAME As String = "MyRobustVBAExcelMacro"
    Const EXCEL_MACRO_PATH As String = "C:\YourPath\YourWorkbook.xlsm" ' ここを実際のExcelブックのパスに置き換えてください
    Const MACRO_NAME As String = "YourMacroName" ' ここを実際のマクロ名に置き換えてください

    ' ここを実際のVBScriptのパスに置き換えてください
    ' (最小実装で作成されたVBScriptを再利用しても良い)
    Const VBSCRIPT_PATH As String = "C:\Users\Public\Documents\MySimpleVBAJob_20231027_103000.vbs"

    ' Excelマクロを登録する例 (現在から2分後に実行)
    ' RegisterOrUpdateRobustTask MY_TASK_NAME, EXCEL_MACRO_PATH, MACRO_NAME, 2, , , True

    ' VBScriptを登録する例 (現在から2分後に実行)
    RegisterOrUpdateRobustTask MY_TASK_NAME, "wscript.exe", "//B """ & VBSCRIPT_PATH & """", 2

    ' 登録したタスクを今すぐ実行する例
    ' RunTaskSchedulerTask MY_TASK_NAME

    ' 登録したタスクを削除する例 (テスト後に実行を推奨)
    ' DeleteTaskSchedulerTask MY_TASK_NAME
End Sub

64bit対応/PtrSafe/LongPtrに関する補足: 上記のコードでは、VBA7以降で導入された PtrSafe および LongPtr は DisposeComObject 内の CoTaskMemFree で使用しています。これはCOMオブジェクトが内部的にメモリ管理にこれらを利用する可能性を考慮したものです。しかし、Task Scheduler COM API自体は、プロパティやメソッドの引数として直接的なポインタ型を公開することは稀であるため、通常の使用では Object 型で問題なく動作します。VBAがCOMオブジェクトの参照を処理する際に、環境に応じて内部的に適切なポインタサイズを扱うため、開発者がCOMオブジェクトのポインタサイズを意識する必要はほとんどありません。

ベンチ/検証

タスクスケジューラの登録や実行は、システムのコンテキストで行われるため、単なる処理速度のベンチマークよりも、確実性と再現性、そして想定外の挙動に対する耐性が重要になります。

テスト観点:

  1. タスク登録の成否:
    • 指定したタスク名でタスクスケジューラに登録されているか（schtasks /query /tn "タスク名" またはGUIで確認）。
    • タスクのステータスが「準備完了」になっているか。
  2. タスク設定の正確性:
    • 開始時刻、繰り返し間隔（もし設定した場合）、実行ユーザー、権限レベルが期待通りに設定されているか。
    • 実行するプログラムのパスと引数が正しいか。特にExcelマクロの場合、/r "マクロ名" が正しく渡っているか。
  3. タスク実行の成否:
    • 指定時刻にタスクが起動し、期待されるアクション（VBScriptの実行、Excelマクロの実行など）が完了するか。
    • タスクスケジューラの履歴に成功（0x0）または失敗（エラーコード）が記録されているか。
    • 生成されるべきログファイルや、Excelマクロが作成するデータなどが正しく生成されているか。
  4. 権限とログオンオプション:
    • TASK_LOGON_INTERACTIVE_TOKEN で登録したタスクが、ユーザーログオン時・ログオフ時どちらでも動作するか（ログオフ時は対話型権限では動作しない）。
    • TASK_LOGON_SERVICE_ACCOUNT やパスワード指定で登録したタスクが、ログオフ状態でも動作するか。
    • 管理者権限（TASK_RUNLEVEL_HIGHEST）が必要な処理が、LUA（TASK_RUNLEVEL_LUA）で実行されていないか。
  5. タスクの更新と削除:
    • 同じタスク名で再度 RegisterTaskDefinition を実行した際、設定が正しく更新されるか。
    • DeleteTaskSchedulerTask でタスクが完全に削除されるか。
  6. エラーハンドリング:
    • 存在しないパスや不正な引数を指定した場合に、VBA側でエラーが捕捉され、適切に処理されるか。
    • タスクスケジューラ側で発生したエラー（例: 実行ファイルが見つからない）が履歴に正しく記録されるか。
  7. 32bit/64bit環境での差異:
    • Officeが32bit版か64bit版かによってCOMオブジェクトの挙動に顕著な差はないが、VBScriptやExcelマクロが呼び出す外部DLLが32bit/64bitに依存する場合、互換性の問題が発生しうる。この点は、VBAコードそのものよりも、実行されるスクリプト/マクロ側の問題として意識する。

これらの観点で実際にタスクを登録・実行・確認することで、堅牢な自動化が実現できます。

応用例／代替案

応用例

  1. 定期的なExcelブック処理:
    • 夜間に最新データを取得し、集計マクロを実行、レポートを生成してメールで送信、またはPDFとして保存。
    • 特定のフォルダを監視し、新しいExcelファイルが配置されたら自動的に開き、事前定義されたマクロを実行してデータを統合。
  2. システムメンテナンス:
    • 毎週日曜日の早朝にPCの指定フォルダをクリーンアップするVBScriptを実行。
    • 重要なアプリケーションのログファイルを定期的にバックアップ・アーカイブする。
  3. 動的なタスク管理:
    • VBAのユーザーフォームから、タスク名、実行スクリプト、実行時刻などをユーザーが指定し、動的にタスクを登録・変更するインターフェースを作成。
    • Excelシートにタスク一覧を記述し、VBAでシートの内容を読み込んで一括でタスクを登録・更新。

代替案

VBAからタスクスケジューラを操作する方法は強力ですが、他の選択肢も検討する価値があります。

  1. PowerShell:
    • Windows環境では PowerShell が第一級のスクリプト言語です。Register-ScheduledTask, Set-ScheduledTask, Start-ScheduledTask, Get-ScheduledTask, Unregister-ScheduledTask などの専用コマンドレットが用意されており、非常に簡潔かつ強力にタスクスケジューラを操作できます。
    • 複雑なロジックはVBAで組み、最終的なタスク登録・実行はPowerShellスクリプトをVBAから Shell 関数で呼び出すハイブリッドなアプローチも考えられます。 
      # PowerShellでのタスク登録例
$TaskName = "MyPowerShellTask"
$Action = New-ScheduledTaskAction -Execute "powershell.exe" -Argument "-File C:\Path\To\MyScript.ps1"
$Trigger = New-ScheduledTaskTrigger -Once -At (Get-Date).AddMinutes(5)
$Settings = New-ScheduledTaskSettingsSet -StartWhenAvailable -AllowDemandStart
Register-ScheduledTask -TaskName $TaskName -Action $Action -Trigger $Trigger -Settings $Settings -User $env:USERNAME -Password (Read-Host -AsSecureString "Enter Password")
  2. C# / .NET Framework:
    • より堅牢で、大規模なシステムに組み込む場合は、.NET Frameworkの Microsoft.Win32.TaskScheduler ライブラリ（CodePlexで公開されていたものなど）を利用するのが一般的です。VBAよりも豊富な機能と安定性を提供します。
  3. Windows API直接呼び出し:
    • VBAから Declare ステートメントを使って Taskschd.dll のCOMインターフェースを直接呼び出すことも理論上は可能ですが、Late Bindingの CreateObject がよりシンプルで一般的です。APIの関数ポインタを直接扱う必要が出てくるため、難易度は飛躍的に上がります。

まとめ

本記事では、VBAからWindowsのタスクスケジューラをプログラム的に操作するための深層、特にCOMインターフェース ITaskService を中心に、その内部動作と実践的な実装について詳細に解説しました。

表層的なHowToに留まらず、以下のポイントに深く踏み込みました。 * ITaskService を中心としたCOMオブジェクト群の役割と連携。 * VBAからのLate Binding (CreateObject) による利用と、それに伴う定数定義の必要性。 * VBA7以降の PtrSafe/LongPtr の位置づけと、COMオブジェクト操作におけるその関係。 * VBScriptやExcelマクロをタスクスケジューラで実行する際の具体的なパスと引数の渡し方。 * ITaskDefinition の各種設定、特に IPrincipal におけるログオンタイプと実行ユーザーの重要性。 * 最小実装から、エラーハンドリングや既存タスクの更新・削除を盛り込んだ堅牢なコードへの発展。

これにより、単にタスクを登録するだけでなく、権限問題、パスの解決、エラー発生時の挙動など、実運用で遭遇しうる多くの課題に対応できる基盤を理解していただけたかと思います。VBAとCOMの連携は、Windows環境における強力な自動化の武器となります。この知識が、皆さんの業務自動化における次なる一歩となることを願っています。

運用チェックリスト

タスクスケジューラをVBAから自動登録するシステムを運用するにあたり、以下の点を確認しましょう。

  • [ ] タスク名の一意性: 同じタスク名で複数回登録しようとしていないか。更新なのか、新規作成なのか意図を明確に。
  • [ ] 実行ファイルの絶対パス指定: 実行するVBScript、Excelブック、または実行可能ファイルのパスは、環境変数に依存せず、常に絶対パスで指定されているか。
  • [ ] 実行ユーザーの権限: タスクを実行するユーザーアカウント (IPrincipal.UserID) は、指定されたプログラムを実行するのに十分な権限を持っているか。ネットワークドライブへのアクセス、ファイル書き込み権限など。
  • [ ] ログオンオプションの適切性: TASK_LOGON_INTERACTIVE_TOKEN (ログオン時のみ実行可能、または対話型セッションが必要) と TASK_LOGON_SERVICE_ACCOUNT (ログオン状態に関わらずサービスとして実行) のどちらが目的に合致しているか。パスワードの扱いは安全か。
  • [ ] Excelマクロのセキュリティ: Excelマクロを実行する場合、ブックが「信頼できる場所」に配置されているか、またはマクロセキュリティ設定が適切に構成されているか。バックグラウンド実行時にUIが表示されてブロックされないか。
  • [ ] エラー処理:
    • VBAコード内で On Error GoTo を使用し、COMオブジェクト操作時のエラーを適切に捕捉しているか。
    • 実行されるスクリプト/マクロ自体にもエラーハンドリングが実装されているか。
    • タスクスケジューラの履歴を確認し、エラーコード（特に 0x1 は汎用的な失敗を示す）の詳細を調査できる準備があるか。
  • [ ] タスクの実行時間制限: ITaskSettings.ExecutionTimeLimit が適切に設定されているか。無限ループやハングアップに備えてタイムアウトを設定する。
  • [ ] PCのスリープ/休止状態: ITaskSettings.WakeToRun や ITaskSettings.StopIfGoingOnBatteries が目的に合致しているか。特に夜間実行の場合、PCがスリープしないように設定が必要な場合がある。
  • [ ] 履歴の確認: タスクスケジューラサービスの履歴サイズが適切か。デバッグ中は多くの履歴を残し、運用中は必要に応じてサイズを調整する。
  • [ ] 環境差異: 開発環境（OSバージョン、Officeビット数、Officeバージョン）と実行環境が異なる場合に、予期せぬ挙動が発生しないか確認。

参考リンク

ライセンス：本記事のテキスト/コードは特記なき限り CC BY 4.0 です。引用の際は出典URL（本ページ）を明記してください。
利用ポリシー もご参照ください。

コメント

タイトルとURLをコピーしました