Excel任务调度程序。 我收到错误“Microsoft Excel已停止工作”

我在excel上运行下面的macros，以在Auto_Open中创build特定文件夹中的文件列表

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任务计划程序运行包含此macros的Excel文件。 它按照程序创build一个excel文件，并closures除excel应用程序之外的所有工作簿。 但是，之后我得到“Microsoft Excel已停止工作”的错误。

为什么发生这种情况？ 有关如何解决这个问题的任何build议？

Answer 1

弄清楚了。 在任务计划程序中，在属性 – >设置下，取消选中显示“如果正在运行的任务未被请求时结束”的框，强制其停止“

停止得到错误！