Obsah
V tomto článku vám ukážem, ako môžete obnovenie všetkých tabuliek Pivot v hárku alebo zošite pomocou VBA v programe Excel. Naučíte sa tiež obnoviť jednu tabuľku Pivot , ako aj Otočná tabuľka cache.
Obnovenie všetkých tabuliek Pivot pomocou VBA v programe Excel (rýchle zobrazenie)
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 
Tým sa obnovia všetky Pivotné tabuľky aktívneho zošita.
Stiahnite si cvičebnicu
Stiahnite si tento cvičebný zošit, aby ste si počas čítania tohto článku precvičili svoje zručnosti.
Obnoviť všetky pivotné tabuľky.xlsm4 spôsoby obnovenia všetkých tabuliek Pivot pomocou VBA v programe Excel
A Otočná tabuľka je špeciálny typ tabuľky v hárku programu Excel, ktorá obsahuje dve kategórie údajov s názvami Riadok a Hodnota resp.
Všetky stĺpce tabuľky sú zaradené do týchto dvoch kategórií.
Generuje sa automaticky zo súboru údajov, ak vyberiete súbor údajov a prejdete na Insert> PivotTable možnosť na paneli nástrojov Excelu.
Dnes je naším cieľom naučiť sa, ako môžeme obnoviť všetky Pivotné tabuľky pracovného hárka alebo zošita s VBA v programe Excel.
1. Obnovenie jednej pivotnej tabuľky v programe Excel
Najprv sa naučíme obnoviť jeden Otočná tabuľka .
Obnovenie jedného Otočná tabuľka , najprv ho musíte označiť ako PivotTable objekt.
Potom musíte použiť RefreshTable metóda VBA .
Tu máme Otočná tabuľka s názvom PivotTable1 v aktívnom pracovnom hárku. (Kliknite sem, ak chcete vedieť ako získať názov otočnej tabuľky ).
Na jeho obnovenie musíme použiť nasledujúce riadky kódu:
Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Spustite kód a obnoví sa Otočná tabuľka s názvom PivotTable1 v aktívnom pracovnom hárku.
Prečítajte si viac: Ako automaticky obnoviť pivotnú tabuľku v programe Excel (2 metódy)
2. Obnovenie všetkých otočných tabuliek pracovného hárka v programe Excel
Teraz obnovíme všetky Pivotné tabuľky pracovného hárku s VBA .
Obnovenie všetkých Pivotné tabuľky aktívneho pracovného hárka, musíte iterovať cez každý Otočná tabuľka z ActiveSheet.PivotTables potom použite objekt RefreshTable metóda.
Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 
Spustite kód a obnovenie všetkých tabuliek Pivot aktívneho pracovného hárka.
Prečítajte si viac: Neobnovenie otočnej tabuľky (5 problémov & riešenia)
3. Obnovenie všetkých otočných tabuliek zošita v programe Excel
Môžete tiež obnoviť všetky Pivotné tabuľky zošita v programe Excel.
Obnovenie všetkých Pivotné tabuľky aktívneho zošita, prechádzajte jednotlivé tabuľky podľa ActiveWorkbook.PivotTables objekt VBA Potom použite RefreshTable metóda.
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table
Tento kód obnoví všetky Pivotné tabuľky aktívneho zošita.
Prečítajte si viac: Ako automaticky aktualizovať pivotnú tabuľku pri zmene zdrojových údajov
4. Obnovenie vyrovnávacej pamäte pivotnej tabuľky pomocou VBA v programe Excel
Ak máte viacero Pivotné tabuľky v zošite, ktoré používajú rovnaké údaje, je lepšie obnoviť Vyrovnávacia pamäť otočnej tabuľky namiesto obnovovania Otočná tabuľka .
Obnovenie Vyrovnávacia pamäť otočnej tabuľky , iterujte cez každý Vyrovnávacia pamäť otočnej tabuľky aktívneho zošita pomocou ActiveWorkbook.PivotCaches objekt.
Potom použite R efresh metóda VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache 
Obnoví všetky Vyrovnávacia pamäť otočnej tabuľky z aktívneho zošita.
Prečítajte si viac: Ako automaticky obnoviť pivotnú tabuľku bez VBA v programe Excel (3 inteligentné metódy)
Čo si treba zapamätať
Tu sme ukázali obnovenie Pivotné tabuľky iba z aktívneho pracovného hárka alebo zošita. Ak chcete obnoviť údaje z pracovného hárka alebo zošita, ktorý nie je aktívny, použite názov pracovného hárka alebo zošita namiesto ActiveSheet alebo ActiveWorkbook objekt.
Ak chcete napríklad obnoviť všetky Pivotné tabuľky z adresy List1 , použite For Each Table In Worksheets("Sheet1").PivotTables .
A na osvieženie z Pracovný zošit1 , použite For Each Table In Workbooks("Zošit1").PivotTables .
Záver
Pomocou týchto metód môžete obnoviť všetky Pivotné tabuľky z pracovného hárka alebo zošita s VBA Máte nejaké otázky? Neváhajte a opýtajte sa nás.
