VBA自動刷新數據透視表？

Excel中刷新數據透視表的兩種方法：

1、手工刷新(1)右鍵菜單, 透視表內任意單元格鼠標右鍵-----刷新數據；(2)使用數據透視表工具欄上的刷新按鈕；(3) 添加刷新全部透視表工具按鈕：（3.1）直接在透視表工具欄選項添加按鈕---添加或刪除按鈕---數據透視表---全部刷新；（3.2）自定義工具欄選項按鈕：自定義---命令---數據---全部刷新---將此按鈕拖放到工具欄上，即可直接點擊此按鈕以實現整個工作簿內透視表數據刷新。 操作小技巧：窗口--新建窗口，此時會打開一個同樣的工作簿，窗口中選擇“與工作簿**并排比較”，這樣可在并排的兩個工作簿中將數據源與透視表刷新進行直觀對比，同理在這里你可以試試隱藏窗口哦！記得在excel中是可以設置打開一個存放個人宏的工作簿，而且是一打開就隱藏了窗口了。

2、自動刷新---通過設置透視表屬性 (1)打開時刷新。顧名思義---打開工作表時，就可以刷新數據透視表。 (2)定時刷新。可以設置刷新頻率的時間，但是僅適應于外部數據源所創建的數據透視表。 操作：如何創建1個基于外部數據源創建數據透視表，“數據”菜單---導入外部數據---導入數據---選中外部數據源---選擇表格---導入數據---創建數據透視表---完成。

3、自動刷新---使用VBA代碼實現自動刷新透視表3.1激活工作表時刷新打開透視表代碼窗口輸入： Private Sub Worksheet_Activate()---當激活這個工作表時執行下列語句命令 ActiveSheet.PivotTables("數據透視表").PivotCache.Refresh---更新名為“數據透視表”的數據透視表注意：數據透視表的名在那里呢？也不要把它與工作表的名稱混為一團，每一個數據透視表創建時都是有它自已的名稱的，并且它是可以改動的