Turinys
Šiame straipsnyje parodysiu, kaip galite atnaujinkite visas savo darbalapio ar darbaknygės "Pivot Tables" naudodami "Excel" VBA. Taip pat išmoksite atnaujinti vieną suvestinę lentelę , taip pat Pasukamoji lentelė talpykla.
Atnaujinti visas "Excel" suvedimo lenteles naudojant VBA (greita peržiūra)
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 
Tai atnaujins visus Išvestinės lentelės aktyvaus sąsiuvinio.
Atsisiųsti praktikos sąsiuvinį
Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.
Atnaujinti visas suvestines lenteles.xlsm4 būdai, kaip "Excel" programoje atnaujinti visas suvestines lenteles naudojant VBA
A Pasukamoji lentelė yra specialaus tipo lentelė "Excel" darbalapyje, kurioje yra dviejų kategorijų duomenys, pavadinti Eilutė ir Vertė atitinkamai.
Visi lentelės stulpeliai priskirti šioms dviem kategorijoms.
Jis automatiškai sukuriamas iš duomenų rinkinio, jei pasirenkate duomenų rinkinį ir pereinate į Insert> PivotTable parinktį "Excel" įrankių juostoje.
Šiandien mūsų tikslas - sužinoti, kaip galime atnaujinti visus Išvestinės lentelės darbalapio arba darbo knygos su VBA "Excel" programoje.
1. Atnaujinkite vieną išvestinę lentelę programoje "Excel
Pirmiausia išmoksime atnaujinti vieną Pasukamoji lentelė .
Atnaujinti vieną Pasukamoji lentelė , pirmiausia turite jį vadinti PivotTable objektas.
Tada turite naudoti RefreshTable metodas VBA .
Čia turime Pasukamoji lentelė vadinamas . PivotTable1 aktyviame darbalapyje. (Spustelėkite čia, jei norite sužinoti kaip gauti Pivot lentelės pavadinimą ).
Norėdami jį atnaujinti, turime naudoti šias kodo eilutes:
Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Paleiskite kodą, ir jis atnaujins Pasukamoji lentelė vadinamas . PivotTable1 aktyviajame darbalapyje.
Skaityti daugiau: Kaip automatiškai atnaujinti "Excel" suvestinę lentelę (2 metodai)
2. Atnaujinkite visas "Excel" darbalapio išvestines lenteles
Dabar atnaujinsime visus Išvestinės lentelės darbalapio su VBA .
Atnaujinti visus Išvestinės lentelės aktyvaus darbalapio, turite iteruoti per kiekvieną Pasukamoji lentelė iš ActiveSheet.PivotTables objektą. Tada naudokite RefreshTable metodas.
Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 
Paleiskite kodą ir jis atnaujinti visas suvestines lenteles aktyvaus darbalapio.
Skaityti daugiau: Neatsinaujinanti suvestinė lentelė (5 problemos & amp; sprendimai)
3. Atnaujinkite visas "Excel" darbaknygės išvestines lenteles
Taip pat galite atnaujinti visus Išvestinės lentelės darbo knygą "Excel" programoje.
Atnaujinti visus Išvestinės lentelės aktyviajame sąsiuvinyje, perveskite kiekvieną lentelę pagal ActiveWorkbook.PivotTables objektas VBA . Tada naudokite RefreshTable metodas.
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table
Šis kodas atnaujins visus Išvestinės lentelės aktyvaus sąsiuvinio.
Daugiau: Kaip automatiškai atnaujinti suvestinę lentelę, kai keičiasi šaltinio duomenys
4. Atnaujinkite Pivot lentelės talpyklą naudodami VBA programoje "Excel
Jei turite kelis Išvestinės lentelės sąsiuvinyje, kuriame naudojami tie patys duomenys, geriau atnaujinti Pasukamosios lentelės talpykla o ne atnaujinti Pasukamoji lentelė .
Atnaujinti Pasukamosios lentelės talpykla , iteruoti per kiekvieną Pasukamosios lentelės talpykla aktyvaus sąsiuvinio pagal ActiveWorkbook.PivotCaches objektas.
Tada naudokite R efresh metodas VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache 
Jis atnaujins visus Pasukamosios lentelės talpykla iš aktyvaus sąsiuvinio.
Skaityti daugiau: Kaip "Excel" programoje automatiškai atnaujinti suvestinę lentelę be VBA (3 išmanieji metodai)
Dalykai, kuriuos reikia prisiminti
Čia mes parodėme, kad atnaujintumėte Išvestinės lentelės tik iš aktyvaus darbalapio ar darbaknygės. Jei norite atnaujinti duomenis iš neaktyvaus darbalapio ar darbaknygės, vietoj žodžio "atnaujinti" naudokite darbalapio ar darbaknygės pavadinimą. ActiveSheet arba ActiveWorkbook objektas.
Pavyzdžiui, norėdami atnaujinti visus Išvestinės lentelės iš 1 lapas , naudokite For Each Table In Worksheets("Sheet1").PivotTables .
Ir atsigaivinti nuo Darbo knyga1 , naudokite For Each Table In Workbooks("Workbook1").PivotTables .
Išvada
Naudodami šiuos metodus galite atnaujinti visus Išvestinės lentelės iš darbalapio arba darbo knygos su VBA "Excel" programoje. Turite klausimų? Nedvejodami kreipkitės į mus.
