Excel 2007 VBA - 數據透視表字段列表??? 造成錯誤

Question

---

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到Code 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（在大型數據源中有2個數據透視緩存的電子表格中更快，但是有46個數據透視表），以使其在沒有此錯誤的情況下工作嗎？

謝謝你的幫助！！！

Answer 1

我有多個工作表的多個支點，所有三個代碼片段工作正常。 應該有其他原因導致問題，而不是代碼。

Answer 2

您的代碼段正確運行。

可能是您的代碼運行后屏幕顯示可能無法刷新。

嘗試添加此代碼：

Application.ScreenUpdating = False
    ''//Your code here
DoEvents
Application.ScreenUpdating = True