Vbscript vb脚本刷新所有错误424

我有一个VB脚本，可以打开电子表格，执行RefreshAll以从外部数据更新工作表，然后将其另存为.CSV。我让脚本正常工作，然后将作业移动到另一台计算机上运行。作业通过任务调度器在无人参与的情况下运行，现在我的错误日志显示错误424，脚本不再更新电子表格，也不再保存.CSV。脚本在这台计算机上以交互方式运行。作业正在使用我的凭据无人值守地运行。有人对错误424有任何帮助吗

下面是代码片段：

dim sLogFile, logFSO, objLogFile
sLogFile = "F:\Feed\FeedLog.log"

Set logFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = logFSO.OpenTextFile(sLogFile, 8, True)

Dim objExcel
Dim objWorkBook, objWorksheet
Set objExcel = CreateObject("EXCEL.APPLICATION")
Set objWorkBook = objExcel.Workbooks.Open("F:\Feed\FeedOlap.xlsx")
Set objWorksheet = objWorkbook.Worksheets("Sheet6")

objLogFile.WriteLine ("    " & DATE & " " & TIME & "    Starting Refresh")

objworkbook.Refreshall

    IF ERR THEN
        objLogFile.WriteLine "Error" & Err.Number
    End If

objLogFile.WriteLine ("    " & DATE & " " & TIME & "    Refresh Complete")

objExcel.DisplayAlerts=FALSE
objWorkBook.Save
objWorksheet.SaveAs "F:\Feed\FeedOlapCSV.csv", 6
objWorkBook.Close True
objExcel.Quit
Set objWorkBook = Nothing
Set objExcel = Nothing

objLogFile.WriteLine ("    " & DATE & " " & TIME & "    CSV Created")

---

鉴于您是如何从外部数据刷新的，您的某个外部数据文件肯定缺少链接。。。您可能需要调查每一条外部数据链路，并确保您仍然可以在新位置访问它。（例如，每个位置的权限、域用户的映射驱动器等）

错误424表示。哪一行显示错误？objworkbook.Refreshall

objworkbook

似乎很好，否则脚本应该已经在第

Set objWorksheet=objworkbook.Worksheets（“Sheet6”）

行失败。计划任务的帐户设置是什么？使用最高权限运行，无论用户是否登录都运行，作业在此框中使用具有本地管理员权限的域用户，作业调用执行脚本的批处理文件，任务计划程序服务使用本地系统帐户运行。