excel - VBA - 刷新数据透视图正在关闭 Excel

Question

我使用 VBA 成功创建了一个数据透视表，然后我尝试使用我创建的数据透视表的数据更新图表（仍在 VBA 中）。

问题是，当我调用图表更新函数时，Excel 崩溃并随机关闭（有时图表正确刷新，有时它不工作）。

请在下面找到我用来更新图表的函数，我只使用 SetDataSource 属性：

Function GeneratePivotChart(wbSource As String, wbDestination As String, chartName As String, pivotName As String)
    With Sheets(wbDestination).ChartObjects(chartName).Chart
        .SetSourceData Source:=Sheets(wbSource).PivotTables(pivotName).TableRange1
    End With
End Function

为了触发更新，我在包含数据透视表的工作表中使用了 PivotTableUpdate 事件。

知道为什么 Excel 在更新图表数据时会关闭吗？我应该删除图表并创建一个新图表吗？

谢谢你的帮助 ;）

Answer 1

尝试ThisWorkbook.RefreshAll而不是 PivotTableUpdate 事件。