Hoe alle draaitabellen uit een werkmap weergeven?

Stel dat u een grote werkmap heeft die meerdere draaitabellen bevat, nu wilt u alle draaitabellen in deze werkmap vermelden, is dit mogelijk? Natuurlijk zal de volgende VBA-code in dit artikel je een plezier doen. Lees het onderstaande artikel voor meer informatie.

Maak een lijst van alle draaitabellen uit een werkmap met VBA-code

Maak een lijst van alle draaitabellen uit een werkmap met VBA-code

De volgende VBA-code kan u helpen om alle draaitabelnamen weer te geven, samen met hun attributen, zoals brongegevensbereik, werkbladnaam, vernieuwde datum, enzovoort.

1. Open uw werkmap waarin u alle draaitabellen wilt weergeven.

2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: maak een lijst van alle draaitabellen uit een werkmap

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 F5 sleutel om deze code uit te voeren, worden alle draaitabelnamen, het brongegevensbereik, de werkbladnaam en andere attributen vermeld in een nieuw werkblad dat vooraan in uw actieve werkblad wordt geplaatst zoals in de volgende schermafbeelding:

Gerelateerde artikelen:

Hoe controleer ik of een draaitabel in een werkmap bestaat?

Hoe voeg ik meerdere velden toe aan een draaitabel?