0

スプレッドシートを開き、RefreshAll を実行して外部データからシートを更新し、SaveAs a .CSV を実行する VB スクリプトがあります。タスク スケジューラを介してジョブが無人で実行され、エラー ログに ERROR 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")
4

1 に答える 1

0

外部データからどのように更新しているかを見ると、外部データ ファイルの 1 つへのリンクが見つからないはずです...おそらく、すべての外部データ リンクを調査し、新しいファイルでもアクセスできることを確認する必要があります。位置。(例: すべての場所への権限、ドメイン ユーザーのマップされたドライブなど)

于 2013-06-04T18:27:25.303 に答える