Satura rādītājs
Šajā rakstā es jums parādīšu, kā jūs varat atsvaidziniet visas darblapas vai darbgrāmatas Pivot tabulas ar VBA programmā Excel. Jūs iemācīsieties arī atsvaidzināt vienu šarnīra tabulu , kā arī Pivot tabula kešatmiņa.
Visu šarnīrgriešanas tabulu atsvaidzināšana ar VBA programmā Excel (ātrs skats)
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 
Tas atsvaidzinās visus Izvirzījuma tabulas aktīvajā darbgrāmatā.
Lejupielādēt Practice Workbook
Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.
Atsvaidzināt visas izlozes tabulas.xlsm4 veidi, kā atsvaidzināt visas šarnīrveida tabulas ar VBA programmā Excel
A Pivot tabula ir īpaša veida tabula Excel darblapā, kurā ir divas datu kategorijas ar nosaukumu Rinda un Vērtība attiecīgi.
Visas tabulas kolonnas ir iedalītas šajās divās kategorijās.
Tas tiek automātiski ģenerēts no datu kopas, ja izvēlaties datu kopu un dodaties uz Insert> PivotTable opcija Excel rīkjoslā.
Šodien mūsu mērķis ir uzzināt, kā mēs varam atsvaidzināt visus Izvirzījuma tabulas darblapas vai darbgrāmatas ar VBA programmā Excel.
1. Atsvaidziniet vienu šarnīra tabulu programmā Excel
Vispirms mēs iemācīsimies atsvaidzināt vienu Pivot tabula .
Atsvaidzināšana vienā Pivot tabula , pirmkārt, jums ir jānorāda uz to kā uz PivotTable objekts.
Tad jums ir jāizmanto RefreshTable metode VBA .
Šeit mums ir Pivot tabula ko sauc par PivotTable1 aktīvajā darblapā. (Spiediet šeit, lai uzzinātu. kā iegūt Pivot tabulas nosaukumu ).
Lai to atsvaidzinātu, ir jāizmanto šādas koda rindas:
Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Palaidiet kodu, un tas atsvaidzinās Pivot tabula ko sauc par PivotTable1 aktīvajā darblapā.
Uzziniet vairāk: Kā automātiski atsvaidzināt šarnīra tabulu programmā Excel (2 metodes)
2. Atsvaidziniet visas Excel darblapas šarnīra tabulas
Tagad mēs atsvaidzināsim visus Izvirzījuma tabulas darblapas ar VBA .
Lai atsvaidzinātu visus Izvirzījuma tabulas aktīvās darblapas, jums ir jāveic iterācija pa katru darblapu. Pivot tabula no ActiveSheet.PivotTables objektu. Tad izmantojiet RefreshTable metode.
Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 
Palaidiet kodu, un tas atsvaidzināt visas šarnīrveida tabulas aktīvajā darblapā.
Lasīt vairāk: Pivot tabulas neatjaunošana (5 problēmas & amp; risinājumi)
3. Atsvaidziniet visas darbgrāmatas izvelkamās tabulas programmā Excel
Varat arī atsvaidzināt visus Izvirzījuma tabulas darbgrāmatā programmā Excel.
Lai atsvaidzinātu visus Izvirzījuma tabulas aktīvās darbgrāmatas, iterēt katru tabulu ar ActiveWorkbook.PivotTables objekts VBA . Pēc tam izmantojiet RefreshTable metode.
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table
Šis kods atsvaidzinās visus Izvirzījuma tabulas aktīvajā darbgrāmatā.
Uzziniet vairāk: Kā automātiski atjaunināt šarnīra tabulu, kad mainās avota dati
4. Atsvaidziniet šarnīrttabulas kešatmiņu ar VBA programmā Excel
Ja jums ir vairāki Izvirzījuma tabulas darbgrāmatā, kas izmanto vienus un tos pašus datus, labāk atsvaidziniet Pivot tabulas kešatmiņa nevis atsvaidzināt Pivot tabula .
Lai atsvaidzinātu Pivot tabulas kešatmiņa , atkārtojiet katru Pivot tabulas kešatmiņa aktīvās darbgrāmatas ActiveWorkbook.PivotCaches objekts.
Pēc tam izmantojiet R efresh metode VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache 
Tas atsvaidzinās visus Pivot tabulas kešatmiņa no aktīvās darbgrāmatas.
Lasīt vairāk: Kā automātiski atsvaidzināt Pivot tabulu bez VBA programmā Excel (3 gudras metodes)
Lietas, kas jāatceras
Šeit mēs esam parādījuši, lai atsvaidzinātu Izvirzījuma tabulas tikai no aktīvās darblapas vai darbgrāmatas. Ja vēlaties atsvaidzināt datus no darbgrāmatas vai darblapas, kas nav aktīva, darblapas vai darbgrāmatas nosaukuma vietā izmantojiet vārdkopu ActiveSheet vai ActiveWorkbook objekts.
Piemēram, lai atsvaidzinātu visus Izvirzījuma tabulas no Lapa1 , izmantot Par katru tabulu darblapās("Sheet1").PivotTables .
Un atsvaidzināt no Darba burtnīca1 , izmantot Par katru tabulu, kas atrodas darbgrāmatā Workbooks("Workbook1").PivotTables .
Secinājums
Izmantojot šīs metodes, varat atsvaidzināt visus Izvirzījuma tabulas no darblapas vai darbgrāmatas ar VBA Vai jums ir kādi jautājumi? Uzdodiet tos mums.
