Excel 任务计划程序。我收到错误"Microsoft Excel has stopped working"

Question

我在excel上运行以下宏，以在特定文件夹中创建Auto_Open文件列表

Option Explicit
Sub Auto_Open()
    Dim MyFolder As String
    Dim MyFile As String
    Dim NextRow As Long
    Dim MyDateTime As Date
    Dim MyDate As Date
MyFolder = "C:UsersFolder"
MyFile = Dir(MyFolder)

NextRow = 1
Do While Len(MyFile) > 0
    MyDateTime = FileDateTime(MyFolder & MyFile)
    MyDate = Int(MyDateTime)
If MyDate = Date Then
    Cells(NextRow, "A").Value = MyFolder & MyFile
    Cells(NextRow, "B").Value = MyDateTime
    NextRow = NextRow + 1
End If
    MyFile = Dir
Loop
Dim wb As Workbook
    Set wb = Workbooks.Add
    ThisWorkbook.Sheets("Sheet1").Copy Before:=wb.Sheets(1)
    wb.SaveAs ThisWorkbook.Path & "" & Format(Now, "yyyy-mm-dd") & "_FileList", FileFormat:=51
    wb.Close
    ThisWorkbook.Close SaveChanges:=False
End Sub

我计划每天通过windows任务调度程序运行包含该宏的excel文件。它按程序创建一个excel文件，并关闭除excel应用程序外的所有工作簿。然而，在那之后，我得到的错误是"微软Excel已停止工作"。

为什么会发生这种情况?关于如何解决这个问题有什么建议吗?

Answer 1

明白了。在任务调度程序中，在属性->设置下，我选中了"如果请求时正在运行的任务未结束，则强制其停止"的框

停止获取错误!