The følgende VBA-kode kan hjelpe deg med å liste opp alle navnene pivottabeller sammen med sine attributter, for eksempel kildedataområdet, regneark navn, uthvilt dato og så videre.
1. Åpne arbeidsboken din som du ønsker å liste alle pivottabeller.
To. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode:. List alle pivottabeller fra en arbeidsbok
Sub ListPivotsInfor () 'Update 20141112 Dim St Som Regneark Dim newst Som Regneark Dim pt As Pivot Dim jeg, K As Long Application.ScreenUpdating = False Set newst = Worksheets.Add I = 1: K = 2 Med newst .Cells (I, 1) = "Navn" .Cells (I, 2) = "Source" .Cells (I, 3) = "oppdatert med" .Cells (I, 4) = "oppdatert" .Cells (I, 5) = "Sheet" .Cells (I, 6) = "Location" For Hver St I ActiveWorkbook.Worksheets For Hver pt I St.PivotTables I = I + 1 .Cells (I, 1) .Value = pt.Name .Cells (I, 2) .Value = pt.SourceData .Cells (I, 3) .Value = pt.RefreshName .Cells (I, 4) .Value = pt.RefreshDate .Cells (I, 5) .Value = St.Name .Cells (I, 6) .Value = pt.TableRange1.Address Neste Neste .Activate End Med Application.ScreenUpdating = TrueEnd Sub4. Deretter trykker F5 for å kjøre denne koden, alle navnene pivottabeller, kildedataområdet, regneark navn og andre attributter er oppført i et nytt regneark som er plassert i fronten av ditt aktive regnearket som følgende skjermbilde vises: