Съдържание
В тази статия ще ви покажа как можете да опресняване на всички таблици Pivot на вашия работен лист или работна книга с VBA в Excel. Ще се научите също така да опресняване на една таблица Pivot , както и Таблица за завъртане кеш.
Опресняване на всички таблици на завъртане с VBA в Excel (бърз преглед)
Dim Table As PivotTable За всяка таблица в ActiveWorkbook.PivotTables Table.RefreshTable Следваща таблица 
Това ще опресни всички Таблици на завъртанията на активната работна книга.
Изтегляне на работна тетрадка за практика
Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.
Опресняване на всички таблици на завъртанията.xlsm4 начина за опресняване на всички таблици Pivot с VBA в Excel
A Таблица за завъртане е специален вид таблица в работен лист на Excel, която съдържа две категории данни, озаглавени Ред и Стойност съответно.
Всички колони на таблицата са категоризирани в тези две категории.
Той се генерира автоматично от набор от данни, ако изберете набора от данни и отидете в Insert> PivotTable в лентата с инструменти на Excel.
Днес целта ни е да научим как можем да освежим всички Таблици на завъртанията на работен лист или работна книга с VBA в Excel.
1. Обновяване на единична таблица Pivot в Excel
Първо ще се научим да опресняваме един Таблица за завъртане .
Опресняване на един Таблица за завъртане , първо, трябва да се отнасяте към него като към PivotTable обект.
Тогава трябва да използвате RefreshTable метод на VBA .
Тук имаме Таблица за завъртане наречен PivotTable1 в активния работен лист. (Щракнете тук, за да научите как да получите името на Pivot Table ).
За да го опресните, трябва да използвате следните редове код:
Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Изпълнете кода и той ще обнови Таблица за завъртане наречен PivotTable1 в активния работен лист.
Прочетете повече: Как да опресните автоматично таблицата Pivot в Excel (2 метода)
2. Опресняване на всички таблици с отметки на работен лист в Excel
Сега ще опресним всички Таблици на завъртанията на работен лист с VBA .
Обновяване на всички Таблици на завъртанията на активния работен лист, трябва да преминете през всеки Таблица за завъртане на ActiveSheet.PivotTables обект. След това използвайте RefreshTable метод.
Dim Table As PivotTable За всяка таблица в ActiveSheet.PivotTables Table.RefreshTable Следваща таблица 
Изпълнете кода и той ще опресняване на всички таблици Pivot на активния работен лист.
Прочетете повече: Таблицата на завъртане не се опреснява (5 проблема & Решения)
3. Опресняване на всички таблици с отметки в работна книга в Excel
Можете също така да опресните всички Таблици на завъртанията на работна книга в Excel.
Обновяване на всички Таблици на завъртанията на активната работна книга, да преминете през всяка таблица по ActiveWorkbook.PivotTables обект от VBA . След това използвайте RefreshTable метод.
Dim Table As PivotTable За всяка таблица в ActiveWorkbook.PivotTables Table.RefreshTable Следваща таблица
Този код ще опресни всички Таблици на завъртанията на активната работна книга.
Прочетете още: Как да актуализирате автоматично таблица Pivot при промяна на изходните данни
4. Обновяване на кеша на таблицата Pivot с VBA в Excel
Ако имате няколко Таблици на завъртанията в работната си книга, които използват едни и същи данни, е по-добре да опресните Кеширане на таблицата Pivot вместо да опреснявате Таблица за завъртане .
Освежаване на Кеширане на таблицата Pivot , преминавайки през всеки Кеширане на таблицата Pivot на активната работна книга чрез ActiveWorkbook.PivotCaches обект.
След това използвайте R efresh метод на VBA .
Dim Cache As PivotCache За всеки Cache в ActiveWorkbook.PivotCaches Cache.Refresh Следващ Cache 
Той ще опресни всички Кеширане на таблицата Pivot от активната работна книга.
Прочетете повече: Как автоматично да опреснявате таблицата Pivot без VBA в Excel (3 интелигентни метода)
Нещата, които трябва да запомните
Тук показахме, че трябва да опресните Таблици на завъртанията само от активния работен лист или работна книга. Ако искате да опресните данни от работна книга или работен лист, който не е активен, използвайте името на работния лист или работната книга вместо символа ActiveSheet или ActiveWorkbook обект.
Например, за да опресните всички Таблици на завъртанията от Лист1 , използвайте За всяка таблица в Worksheets("Sheet1").PivotTables .
И да се освежи от Работна тетрадка1 , използвайте За всяка таблица в Workbooks("Workbook1").PivotTables .
Заключение
С помощта на тези методи можете да опресните всички Таблици на завъртанията от работен лист или работна книга с VBA в Excel. Имате ли някакви въпроси? Не се колебайте да ни попитате.
