Jak vypsat všechny kontingenční tabulky ze sešitu?

Předpokládejme, že máte velký sešit, který obsahuje více kontingenčních tabulek, nyní chcete zobrazit seznam všech kontingenčních tabulek v tomto sešitu, je to možné? Následující kód VBA v tomto článku vám samozřejmě udělá laskavost. Další informace naleznete v následujícím článku.

Seznam všech kontingenčních tabulek ze sešitu s kódem VBA

Seznam všech kontingenčních tabulek ze sešitu s kódem VBA

Následující kód VBA vám pomůže se seznamem všech názvů kontingenčních tabulek a jejich atributů, jako je rozsah zdrojových dat, název listu, obnovené datum atd.

1. Otevřete sešit, ve kterém chcete zobrazit seznam všech kontingenčních tabulek.

2. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

3, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Seznam všech kontingenčních tabulek ze sešitu

Sub ListPivotsInfor()
'Update 20141112
    Dim St As Worksheet
    Dim NewSt As Worksheet
    Dim pt As PivotTable
    Dim I, K As Long
    Application.ScreenUpdating = False
    Set NewSt = Worksheets.Add
    I = 1: K = 2
    With NewSt
        .Cells(I, 1) = "Name"
        .Cells(I, 2) = "Source"
        .Cells(I, 3) = "Refreshed by"
        .Cells(I, 4) = "Refreshed"
        .Cells(I, 5) = "Sheet"
        .Cells(I, 6) = "Location"
        For Each St In ActiveWorkbook.Worksheets
            For Each pt In 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
            Next
        Next
        .Activate
    End With
    Application.ScreenUpdating = True
End Sub

4. Pak stiskněte tlačítko F5 Klíč ke spuštění tohoto kódu, všechny názvy kontingenčních tabulek, rozsah zdrojových dat, název listu a další atributy jsou uvedeny v novém listu, který je umístěn v přední části vašeho aktivního listu, jak ukazuje následující snímek obrazovky:

Související články:

Jak zkontrolovat, zda v sešitu existuje kontingenční tabulka?

Jak přidat více polí do kontingenční tabulky?