Vba Excel任务调度器。我得到了这个错误；“Microsoft Excel已停止工作”；

我正在excel上运行以下宏，以在特定文件夹中创建一个文件列表作为“自动打开”

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:\Users\Folder\"

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应用程序之外的所有工作簿。然而，在那之后，我得到了一个错误，即“Microsoft Excel已停止工作”

---

为什么会这样？关于如何解决这个问题，有什么建议吗？

解决了。在TaskScheduler中的properties->Settings下，我取消选中了“如果正在运行的任务未在请求时结束，请强制停止”框

---

停止获取错误

找到了答案。在TaskScheduler中的properties->Settings下，我取消选中了“如果正在运行的任务未在请求时结束，请强制停止”框

---

停止获取错误

表1上有什么-有按钮或控件吗？为什么不在代码前面创建新工作簿，并将值直接写入其中？第1页为空。我可以试着那样做
sheet 1
上有什么按钮或控件？为什么不在代码前面创建新工作簿，并将值直接写入其中？第1页为空。我可以试着那样做
sheet 1
上有什么按钮或控件？为什么不在代码前面创建新工作簿，并将值直接写入其中？第1页为空。我可以试着那样做