Como listar todas as tabelas dinâmicas de uma pasta de trabalho?

Suponha que você tenha uma pasta de trabalho grande que contém várias tabelas dinâmicas e agora deseja listar todas as tabelas dinâmicas desta pasta de trabalho. Isso é possível? Claro, o seguinte código VBA neste artigo irá ajudá-lo. Para saber mais detalhes, por favor, leia o artigo abaixo.

Listar todas as tabelas dinâmicas de uma pasta de trabalho com código VBA

Listar todas as tabelas dinâmicas de uma pasta de trabalho com código VBA

O seguinte código VBA pode ajudá-lo a listar todos os nomes das tabelas dinâmicas junto com seus atributos, como intervalo de dados de origem, nome da planilha, data de atualização e assim por diante.

1. Abra sua pasta de trabalho na qual deseja listar todas as tabelas dinâmicas.

2. Pressione e segure as teclas ALT + F11, isso abrirá a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Listar todas as tabelas dinâmicas de uma pasta de trabalho

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. Em seguida, pressione a tecla F5 para executar este código; todos os nomes das tabelas dinâmicas, intervalos de dados de origem, nomes das planilhas e outros atributos serão listados em uma nova planilha colocada à frente da sua planilha ativa, conforme mostrado na captura de tela a seguir:

Artigos relacionados:

Como verificar se uma tabela dinâmica existe em uma pasta de trabalho?

Como adicionar vários campos em uma tabela dinâmica?