Hoe alle draaitabellen uit een werkboek te lijsten?

Stel dat je een groot werkboek hebt dat meerdere draaitabellen bevat, en nu wil je alle draaitabellen in dit werkboek weergeven. Is dat mogelijk? Natuurlijk, de volgende VBA-code in dit artikel zal je helpen. Voor meer details, lees het onderstaande artikel.

Alle draaitabellen uit een werkboek met VBA-code weergeven

Alle draaitabellen uit een werkboek met VBA-code weergeven

De volgende VBA-code kan je helpen om alle draaitabelnamen samen met hun kenmerken weer te geven, zoals brongegevensbereik, werkbladnaam, vernieuwingsdatum enzovoort.

1. Open je werkboek waarin je alle draaitabellen wilt weergeven.

2. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Alle draaitabellen uit een werkboek weergeven

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. Druk vervolgens op de F5-toets om deze code uit te voeren. Alle draaitabelnamen, brongegevensbereiken, werkbladnamen en andere kenmerken worden weergegeven in een nieuw werkblad dat voor je actieve werkblad is geplaatst, zoals in de volgende schermafbeelding te zien is:

Gerelateerde artikelen:

Hoe controleer je of er een draaitabel bestaat in een werkboek?

Hoe voeg je meerdere velden toe aan een draaitabel?