Как вывести список всех сводных таблиц из книги?

Предположим, у вас есть большая книга, содержащая несколько сводных таблиц, и вы хотите вывести список всех сводных таблиц в этой книге. Возможно ли это? Конечно, следующий VBA-код в этой статье поможет вам. Чтобы узнать больше, пожалуйста, прочитайте статью ниже.

Вывести список всех сводных таблиц из книги с помощью VBA-кода

Вывести список всех сводных таблиц из книги с помощью VBA-кода

Следующий VBA-код поможет вам вывести список всех названий сводных таблиц вместе с их атрибутами, такими как диапазон данных источника, имя листа, дата обновления и т.д.

1. Откройте вашу книгу, из которой нужно вывести все сводные таблицы.

2. Нажмите клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

3. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.

VBA-код: Вывести список всех сводных таблиц из книги

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. Затем нажмите клавишу F5 для запуска этого кода. Все названия сводных таблиц, диапазоны данных источника, имена листов и другие атрибуты будут перечислены на новом листе, который появится перед активным листом, как показано на скриншоте ниже:

Связанные статьи:

Как проверить, существует ли сводная таблица в книге?

Как добавить несколько полей в сводную таблицу?