VBA – 刷新数据透视表正在closuresExcel

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

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

请在下面find我用来更新图表的函数，我只使用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将更新图表的数据时closures？ 我应该删除图表，并创build一个新的？

谢谢你的帮助 ;）

Answer 1

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