打开 excel 文件工作正常，但如果我通过 Windows 任务计划程序安排脚本，则无法正常工作

Question

我的 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在任务管理器中运行）。

我试图捕获它抛出的错误，但我无法捕获。 在每一行旁边写一些日志后，我知道它在下面的行中给出了错误。

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

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

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

它仍然没有捕获错误。

请帮助我，如何使用以下行处理错误。 虽然我直接运行时它工作正常，但在我安排时它不起作用。

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

Answer 1

由于我使用的是交互式 Excel 对象，因此我无法在调度程序中提供选项“无论用户是否登录都运行”

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

它现在工作。 谢谢大家的建议。