两个透视表为什么老是冲突?

kezhiye

Sub AA()
    ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
End Sub

Sub BB()
    ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh
End Sub

同一工作薄有两个透视表,分别对应两个明细表,数据源范围采取自定义名称的方式以保证自动更新.在VBA编辑器插入一模块,写入以上代码,透视表1增加一个按钮AA指定宏AA,透视表2增加一个按钮BB指定宏BB,作用等同于透视表工具栏的刷新数据,目的是不需打开数据透视表工具栏.

但是这样的结果是:打开该工作薄时经常出现如图提示,继续打开后两个透视表只留下数值而那些透视表的下拉三角没了.

不知这是什么原因?哪位老师遇到过这样的情况请指点指点.谢谢!

kezhiye

是不是上面的代码只适用于一个透视表的工作薄呀?

kezhiye

经这几天测试,发现就一个透视表时也出现因完整性问题被放弃的提示.这样几乎每次关闭后重新打开文件透视表都被修复掉而要重新弄.拜请各位高手帮忙.