通过 R 运行 .vbs 脚本，在任务计划程序中安排

Question

我有一个 VBS 脚本，它接受一个 Excel 文件并将其另存为 PDF。我将此 vbs 称为在通过任务计划程序自动执行的 RScript 中。当我在 R 中手动运行 RScript 时，它运行得很好。但是，当我在 Task Scheduler 中安排它时，任务说它成功完成，但 PDF 文件没有保存。 Task Scheduler 运行 RScript 导致它实际上没有完成有什么不同？

这是 RScript，我在同一个 C:\test 文件夹中将其保存为 HourlyR.R。

shell.exec("C:/test/HourlyNew.vbs")

这是 HourlyNew.vbs 的代码

Option Explicit

ExcelMacro

Sub ExcelMacro()

  Dim xlApp
  Dim xlBook
  Dim xlSheet

  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\\test\\Hourly.xlsm", 0, False)
  Set xlSheet = xlBook.Worksheets("HourlyDashboard")

  xlApp.DisplayAlerts = False
  xlApp.Visible = False


  xlSheet.ExportAsFixedFormat 0, "c:\\test\\HourlyDashboard.pdf", 0, 1, 0, , , 0
  xlBook.Close
  xlApp.Quit

  Set xlBook = Nothing
  Set xlApp = Nothing

End Sub

这是我设置计划任务的方式:

常规选项卡:
无论用户是否登录都运行
选中以最高权限运行

Action 标签:
程序/脚本:C:\R_Program_Files\R-3.2.0\bin\x64\R.exe
添加参数(可选):CMD BATCH C:\test\HourlyR.R

Answer 1

问题可能出在 Excel 中，但最好的办法是逐步调试它。首先，在任务的“开始于”选项中指定工作目录。然后运行任务，导航到该目录并检查执行任务时是否创建了 .Rout 文件。它可以包含错误和消息。如果 R 没有产生任何错误，删除

xlApp.DisplayAlerts = False
xlApp.Visible = False
xlBook.Close
xlApp.Quit

再次运行任务，查看任务管理器中是否出现新的EXCEL.exe进程。如果是这样，请在任务设置中打开“仅在用户登录时运行”选项，这样您应该会看到 Excel UI 及其显示的任何消息。