Kako našteti vse vrtilne tabele iz delovnega zvezka?

Recimo, da imate velik delovni zvezek, ki vsebuje več vrtilnih tabel, bi zdaj radi navedli vse vrtilne tabele v tem delovnem zvezku, ali je to mogoče? Seveda vam bo naslednja koda VBA v tem članku naredila uslugo. Če želite izvedeti več podrobnosti, preberite spodnji članek.

Navedite vse vrtilne tabele iz delovnega zvezka s kodo VBA

Navedite vse vrtilne tabele iz delovnega zvezka s kodo VBA

Naslednja koda VBA vam lahko pomaga, da navedete vsa imena vrtilne tabele skupaj z njihovimi atributi, kot so obseg izvornih podatkov, ime delovnega lista, osveženi datum itd.

1. Odprite delovni zvezek, v katerem želite seznam vseh vrtilnih tabel.

2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: navedite vse vrtilne tabele iz delovnega zvezka

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. Nato pritisnite F5 za zagon te kode, so vsa imena vrtilne tabele, obseg izvornih podatkov, ime delovnega lista in drugi atributi navedeni v novem delovnem listu, ki je postavljen na sprednji del vašega aktivnega delovnega lista, kot je prikazano na sliki spodaj:

Sorodni članki:

Kako preveriti, ali v delovnem zvezku obstaja vrtilna tabela?

Kako v vrtilno tabelo dodati več polj?