打开excel文件工作正常，但如果我通过Windows任务计划程序安排脚本，它不起作用

我遇到了与我的VBScript问题。

我有下面的代码工作正常，当我直接运行它（通过双击它，它触发wscript ）。 FilePath有一些1000 .xls文件。

 FilePath = "c:\test" Set SourceFolder = objFSO.GetFolder(FilePath+"\") For Each file In SourceFolder.Files If Right(LCase(file.Name), 4)=".xls" Then OutFile = OutFilePath + "\" + Left(file.Name, Len(file.Name)-4) + ".csv" Set ExcelObject = oExcel.Workbooks.Open(file.Path) If Err.Number <> 0 Then objLogFile.WriteLine "Exception occured(1): " + Err.Decscription RowCount = oExcel.ActiveWorkbook.Sheets(1).UsedRange.Rows.Count ColumnCount = oExcel.ActiveWorkbook.Sheets(1).UsedRange.Columns.Count For i=1 To RowCount For j=1 To ColumnCount inText = ExcelObject.Sheets(1).Cells(i,j).Value inText = Replace(inText, vbCr, " ") inText = Replace(inText, vbLf, " ") inText = Replace(inText, ",", " ") ExcelObject.Sheets(1).Cells(i,j).Value = inText Next Next ExcelObject.SaveAs OutFile, 6 ExcelObject.Close False End If Next 

如果我在Windows任务计划程序中安排相同的脚本，它也不会抛出任何错误，它只是运行（我可以看到wscript运行在任务pipe理器中）。

我试图捕捉它正在抛出什么错误，但我无法捕捉。 在每行旁边写下一些日志之后，我就知道它在下面的行中发生了错误。

 Set ExcelObject = oExcel.Workbooks.Open(file.path) 

我试图通过把On Error Resume Next If条件（处理所有ObjLogFile对象相关的代码）语句捕获错误，

 If Err.Number <> 0 Then objLogFile.WriteLine "Exception occured(1): " + Err.Decscription 

它仍然没有捕获错误。

请帮助我，如何处理与以下行的错误。 虽然我直接运行的时候工作正常，但是当我安排的时候它不工作。

 Set ExcelObject = oExcel.Workbooks.Open(file.path) 

Answer 1

因为我使用的是交互式的Excel对象，所以我不能在调度器中给出选项“运行用户是否login”

我将此选项更改为“仅在用户login时运行”

现在正在工作。 谢谢大家的build议。