Excel 2007 VBA – 数据透视表字段列表??? 造成错误
最后更新于2011年10月14日 – 我现在知道更多的信息，所以我将在这里总结一切，删除我之前的所有描述/问题。
问题是，运行某个程序后，我得到一些奇怪的错误。 这是类似的，但不完全一样，当我点击“拆分”。 不同的是，实心的灰色条不显示出来。 这有点奇怪。 最近，我开始认为这可能是由数据透视表的字段列表引起的。
以下三段代码中的任何一段都会出现问题
代码1
Dim pvtCache As PivotCache For Each pvtCache In ThisWorkbook.PivotCaches pvtCache.Refresh Next pvtCache 代码2
ThisWorkbook.RefreshAll
代码3
Dim ws As Worksheet Dim pt As PivotTable For Each ws In ThisWorkbook.Worksheets For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws
但不是这样，唯一的区别是我添加ws.Activate到代码3
代码4
Dim ws As Worksheet Dim pt As PivotTable For Each ws In ThisWorkbook.Worksheets ws.Activate For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws
所以，我的问题是，任何人可以解释这一点？ 任何人都可以修复代码1（这是在一个电子表格中，来自大型数据源，但有46个数据透视表），使其工作没有这个错误更快？
谢谢你的帮助！！！
我有多个工作表的多个枢纽，所有三个代码片段工作正常。 应该有别的东西导致问题，而不是代码。
您的代码片段正确运行。
在您的代码运行后，屏幕显示可能不会刷新。
尝试添加这一轮你的代码：
Application.ScreenUpdating = False ''//Your code here DoEvents Application.ScreenUpdating = True