¿Cómo listar todas las tablas dinámicas de un libro de trabajo?

Supongamos que tienes un libro de trabajo grande que contiene múltiples tablas dinámicas, y ahora quieres listar todas las tablas dinámicas en este libro. ¿Es posible? Por supuesto, el siguiente código VBA en este artículo te ayudará. Para conocer más detalles, por favor lee el siguiente artículo.

Listar todas las tablas dinámicas de un libro de trabajo con código VBA

Listar todas las tablas dinámicas de un libro de trabajo con código VBA

El siguiente código VBA puede ayudarte a listar todos los nombres de las tablas dinámicas junto con sus atributos, como el rango de datos de origen, el nombre de la hoja de cálculo, la fecha de actualización y otros.

1. Abre tu libro de trabajo donde deseas listar todas las tablas dinámicas.

2. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Listar todas las tablas dinámicas de un libro de trabajo

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. Luego presiona la tecla F5 para ejecutar este código; todos los nombres de las tablas dinámicas, el rango de datos de origen, el nombre de la hoja de cálculo y otros atributos se enumerarán en una nueva hoja de cálculo colocada al frente de tu hoja de trabajo activa, como se muestra en la siguiente captura de pantalla:

Artículos relacionados:

¿Cómo verificar si existe una tabla dinámica en un libro de trabajo?

¿Cómo agregar múltiples campos a una tabla dinámica?