每當我創建新的數據透視表並保存文件時，Excel工作簿的文件大小都會增加

Question

我有一個vba宏，可基於輸入表中的某些數據創建數據透視表。 每次運行宏時，都會刪除舊的樞軸，並創建一個新的樞軸。

我面臨的問題是，運行宏后每次保存文件時，文件大小都會增加大約14MB。

這就是刪除舊數據透視表的方法：

For Each pivot In reportSht.PivotTables
    pivot.TableRange2.Clear
Next pivot

我的理論是樞軸的某些部分沒有被刪除，但是我似乎無法全神貫注。

Answer 1

我已經找到解決問題的方法。 創建數據透視表時，我還添加了連接，因為我需要顯示數據透視表中的唯一條目數：

ActiveWorkbook.Connections.Add2 "WorksheetConnection_" & inputDataArea, "", _
    "WORKSHEET;" & ActiveWorkbook.Path & "\[" & ActiveWorkbook.name & "]" _
    & inputSht.name, inputDataArea, 7, True, False

其中inputDataArea是一個String，具有用於數據透視表的范圍。 我的問題是，刪除數據透視表時沒有刪除這些連接。 因此，每次執行宏時都會添加一個新的連接。

我添加了這段代碼，還刪除了數據透視表后，刪除了不再需要的所有連接：

Dim connection As Object

For Each connection In ActiveWorkbook.Connections
    If connection.name <> "ThisWorkbookDataModel" Then connection.Delete
Next connection

該文件仍然很大，但是可以管理，最重要的是它不再增長。

感謝Pᴇʜ建議我刪除數據透視緩存並指出，這些緩存與連接一並刪除。