堆栈空间不足？

Question

我有一个宏，我每小时导出一个数据透视表： 但我刚刚得到这个运行时错误说堆栈空间 这是我的代码：

Sub saveFile()
    With Application.ThisWorkbook
        Dim objChart As ChartObject
        Dim myChart As Chart
        ActiveWorkbook.RefreshAll
        DoEvents
        Set objChart = Sheets("Chart").ChartObjects(1)
        Set myChart = objChart.Chart
        today = Sheets("Date Range").Range("D1").Value
        myFileName = "IRF - Daily Receiving " & today & ".jpg"
        On Error Resume Next
        myChart.Export Filename:="\\syncreon.local\data\Redford\Common\Daily Reports\IRF\Receiving\" & myFileName, Filtername:="JPG"
        On Error GoTo 0
        saveFile
        Application.OnTime Now + TimeValue("01:00:00"), "saveFile"
    End With
End Sub

我能用这件事做什么？

Answer 1

您实际上是在 saveFile内从调用saveFile，导致无限递归，最终会自然耗尽堆栈空间。

我不确定为什么你正在这样做，因为你似乎也设置了一个事件来调用该函数一个小时。

我的建议是删除显式调用saveFile，并依靠Application.OnTime稍后安排它。