Cuprins
În acest articol, vă voi arăta cum puteți reîmprospătați toate tabelele pivot din foaia de lucru sau registrul de lucru cu VBA în Excel. Veți învăța, de asemenea, să reîmprospătarea unui singur tabel pivot , precum și Tabel pivotant cache.
Reîmprospătarea tuturor tabelelor pivotante cu VBA în Excel (Vizualizare rapidă)
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 
Acest lucru va reîmprospăta toate Tabele pivotante din registrul de lucru activ.
Descărcați caietul de practică
Descărcați acest caiet de exerciții pentru a vă antrena în timp ce citiți acest articol.
Actualizarea tuturor tabelelor pivot.xlsm4 moduri de a reîmprospăta toate tabelele pivotante cu VBA în Excel
A Tabel pivotant este un tip special de tabel dintr-o foaie de lucru Excel care conține două categorii de date, intitulate Rândul și Valoare respectiv.
Toate coloanele din tabel sunt clasificate în aceste două categorii.
Acesta este generat automat dintr-un set de date dacă selectați setul de date și mergeți la Insert> PivotTable din bara de instrumente Excel.
Astăzi obiectivul nostru este de a afla cum putem reîmprospăta toate Tabele pivotante a unei foi de lucru sau a unui registru de lucru cu VBA în Excel.
1. Actualizarea unui singur tabel pivot în Excel
În primul rând, vom învăța să reîmprospătăm un singur fișier Tabel pivotant .
Pentru a reîmprospăta un singur Tabel pivotant , în primul rând, trebuie să vă referiți la el ca la un PivotTable obiect.
Apoi, trebuie să folosiți RefreshTable metoda de VBA .
Aici avem un Tabel pivotant numit TabelPivot1 în foaia de lucru activă. (Faceți clic aici pentru a afla cum să obțineți numele tabelului pivot ).
Pentru a o reîmprospăta, trebuie să folosim următoarele linii de cod:
Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Rulați codul, iar acesta va reîmprospăta Tabel pivotant numit TabelPivot1 în foaia de lucru activă.
Citiți mai mult: Cum să reîmprospătați automat tabelul pivot în Excel (2 metode)
2. Reîmprospătați toate tabelele pivotante ale unei foi de calcul în Excel
Acum vom reîmprospăta toate Tabele pivotante a unei foi de calcul cu VBA .
Pentru a reîmprospăta toate Tabele pivotante din foaia de lucru activă, trebuie să iterați prin fiecare Tabel pivotant a ActiveSheet.PivotTables Apoi, folosiți opțiunea RefreshTable metoda.
Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 
Rulați codul, și va fi reîmprospătați toate tabelele pivot din foaia de lucru activă.
Citește mai mult: Tabelul pivot nu se reîmprospătează (5 probleme & soluții)
3. Reîmprospătați toate tabelele pivotante ale unui registru de lucru în Excel
De asemenea, puteți reîmprospăta toate Tabele pivotante a unui registru de lucru în Excel.
Pentru a reîmprospăta toate Tabele pivotante a registrului de lucru activ, se trece prin fiecare tabel prin ActiveWorkbook.PivotTables obiect al VBA Apoi, utilizați RefreshTable metoda.
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table
Acest cod va reîmprospăta toate Tabele pivotante din registrul de lucru activ.
Citiți mai mult: Cum să actualizați automat un tabel pivot atunci când datele sursă se modifică
4. Reîmprospătați memoria cache a tabelului pivot cu VBA în Excel
În cazul în care aveți mai multe Tabele pivotante din registrul de lucru care utilizează aceleași date, ar fi bine să reîmprospătați Antemergător tabel pivot mai degrabă decât să reîmprospăteze Tabel pivotant .
Pentru a reîmprospăta Antemergător tabel pivot , iterați prin fiecare Antemergător tabel pivot a registrului de lucru activ cu ajutorul funcției ActiveWorkbook.PivotCaches obiect.
Apoi, utilizați R efresh metoda de VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache 
Acesta va reîmprospăta toate Antemergător tabel pivot din registrul de lucru activ.
Citește mai mult: Cum să reîmprospătați automat tabelul pivotant fără VBA în Excel (3 metode inteligente)
Lucruri de reținut
Aici am arătat că pentru a reîmprospăta Tabele pivotante numai din foaia de lucru sau din registrul de lucru activ. Dacă doriți să reîmprospătați datele dintr-un registru de lucru sau dintr-o foaie de lucru care nu este activă, utilizați numele foii de lucru sau al registrului de lucru în locul semnului ActiveSheet sau ActiveWorkbook obiect.
De exemplu, pentru a reîmprospăta toate Tabele pivotante de la Foaie1 , utilizați Pentru fiecare tabel din Foi de lucru("Sheet1").PivotTables .
Și pentru a reîmprospăta din Caiet de lucru1 , utilizați For Each Table In Workbooks("Workbook1").PivotTables .
Concluzie
Folosind aceste metode, puteți reîmprospăta toate Tabele pivotante dintr-o foaie de lucru sau registru de lucru cu VBA Dacă aveți întrebări, nu ezitați să ne întrebați.
