VBS脚本在按计划任务运行时与双击运行不同

我正在尝试运行下面的代码。 当我在Windows中双击.vbs脚本时，它确实需要做什么。 保存并closures所有打开的excel实例，然后打开2张指定的表格，在表格中运行macros并closures它们。 当计算机进入Wi-Fi范围时，我使用Excel中的Auto_Open同步这些表单。 当我尝试通过.bat或直接与Windows任务计划程序运行命令。 第一部分需要保存和closures所有打开的Excel表格似乎不起作用。 一切都像一个魅力。 有什么基本的任务调度我缺less？ 代码如下：

On Error Resume Next While Err.Number = 0 Set objOffice = GetObject(,"Excel.Application") set objShell = CreateObject("Wscript.Shell") objOffice.DisplayAlerts = False For Each objWindow In objOffice.Windows objWindow.Activate Set WBook = objOffice.ActiveWorkbook WBook.Saved = True WBook.Save WBook.Close Next objOffice.DisplayAlerts = True objOffice.Quit Set objOffice = Nothing WScript.Sleep 2000 Wend set objShell = CreateObject("Wscript.Shell") Set objOffice = CreateObject("Excel.Application") WScript.Sleep 2000 objOffice.visible=True set WBook = objOffice.Workbooks.Open("C:\Users\Public\Documents\OffSide Log Storage\Ron Charawich - Offside Transmitter Log.xls",0) objOffice1.Run "Ron Charawich - Offside Transmitter Log.xls!Auto_Open" Set objOffice = Nothing WScript.Sleep 30000 On Error Resume Next While Err.Number = 0 Set objOffice = GetObject(,"Excel.Application") set objShell = CreateObject("Wscript.Shell") objOffice.DisplayAlerts = False For Each objWindow In objOffice.Windows objWindow.Activate Set WBook = objOffice.ActiveWorkbook WBook.Saved = True WBook.Save WBook.Close Next objOffice.DisplayAlerts = True objOffice.Quit Set objOffice = Nothing WScript.Sleep 2000 Wend set objShell = CreateObject("Wscript.Shell") Set objOffice = CreateObject("Excel.Application") WScript.Sleep 2000 objOffice.visible=True set WBook = objOffice.Workbooks.Open("C:\Users\Public\Documents\Tablet Sheet Storage\Nabiye_PassFail_2016_Field_Locked_Tablet.xlsm",0) objOffice.Run "Nabiye_PassFail_2016_Field_Locked_Tablet.xlsm!Auto_Open" Set objOffice = Nothing WScript.Quit