还是查看我的示例代码以使用VBA创建正确的任务计划项（EPM在内部也做同样的事情）：

显式选项

 子SetTask（）
 '-------------------------------------------------  -----------------
 '此示例安排了一个任务，以启动FPMXLClient.BooksPublication.exe 60秒
 '从任务注册时开始。
 '-------------------------------------------------  -----------------

 '一个常数，它指定基于时间的触发器。
 常量TriggerTypeTime = 1
 '一个常量，指定可执行的操作。
 常量ActionTypeExec = 0

 点心服务
 '*****************************************************  *******
 '创建TaskService对象。
 设置服务= CreateObject（" Schedule.Service"）
 呼叫服务。连接

 '*****************************************************  *******
 '获取用于在其中创建任务定义的文件夹。
 昏暗的root文件夹
 设置rootFolder = service.GetFolder（" \"）

 'taskDefinition变量是TaskDefinition对象。
 昏暗的任务定义
 'flags参数为0，因为它不受支持。
 设置taskDefinition = service.NewTask（0）

 '*****************************************************  *******
 '定义有关任务的信息。

 '通过创建RegistrationInfo对象来设置任务的注册信息。
 昏暗的regInfo
 设置regInfo = taskDefinition.RegistrationInfo
 regInfo.Description =" BPC分发"
 regInfo.Author =" VEKHOME01 \ KalininVE"

 '*****************************************************  *******
 '设置任务负责人
 昏暗的校长
 设置主体= taskDefinition.principal

 '将登录类型设置为6-TASK_LOGON_INTERACTIVE_TOKEN_OR_PASSWORD
 Principal.LogonType = 6


 '通过以下方式设置任务计划程序的任务设置信息
 创建一个TaskSettings对象。
 调暗设定
 设置设置= taskDefinition.settings
 settings.Compatibility = 1
 settings.DisallowStartIfOnBatteries =假
 settings.StopIfGoingOnBatteries =假
 settings.Enabled = True
 settings.StartWhenAvailable = True
 settings.Hidden = False
 settings.Priority = 5
 昏暗的怠速设置
 设置idlesettings = settings.idlesettings
 idlesettings.StopOnIdleEnd =假
 idlesettings.RestartOnIdle = False

 '*****************************************************  *******
 '创建一个基于时间的触发器。
 暗光触发器
 设置触发器= taskDefinition.triggers

 暗光触发
 设置触发器= triggers.Create（TriggerTypeTime）

 '触发变量，定义何时触发触发器。
 昏暗的startTime，endTime为变体

 昏暗的时间
 time = DateAdd（" s"，60，Now）'开始时间=从现在开始60秒
 'startTime格式：YYYY-MM-DDTHH：MM：SS
 startTime =格式（时间，" yyyy-mm-ddThh \：nn \：ss"）

 Debug.Print" startTime："＆startTime

 trigger.StartBoundary =开始时间
 trigger.ID =" TimeTriggerId"
 trigger.Enabled = True

 '*****************************************************  **********
 '为要执行的任务创建动作。

 '向任务添加操作以运行notepad.exe。
 昏暗的动作
 设置操作= taskDefinition.Actions.Create（ActionTypeExec）
 Action.Path =" C：\ Program Files（x86）\ SAP BusinessObjects \ EPM加载项\ FPMXLClient.BooksPublication.exe"
 Action.Arguments =""" C：\ Users \ KalininVE \ Documents \ PC_NW \ KalininVE \ Books \ ENVNAMEXXX \ PLANNING \ WebExcel \ BatchFiles \ D XX.X.XX.XX_8000 ENVNAMEXXX PLANNING KalininVE"""

 Debug.Print"已创建任务定义。即将提交任务..."

 '*****************************************************  **********
 '注册（创建）任务。
 '任务名称：" AAAAAAAAAAAAAAAAAAAAAA"；  taskDefinition; 标志：0x6-TASK_CREATE_OR_UPDATE；  WindowsUsername; 密码; 登录类型：6-TASK_LOGON_INTERACTIVE_TOKEN_OR_PASSWORD

 调用rootFolder.RegisterTaskDefinition（" AAAAAAAAAAAAAAAAAAAAAA"，taskDefinition，6，" VEKHOME01 \ KalininVE"，" PASSWORDXXX"，6）
 Debug.Print"任务已提交。"

 结束

更正：将时间转换函数替换为format（）以简化代码。