Vai al contenuto principale

Come elencare tutte le tabelle pivot da una cartella di lavoro?

Supponendo che tu abbia una grande cartella di lavoro che contiene più tabelle pivot, ora, vuoi elencare tutte le tabelle pivot in questa cartella di lavoro, è possibile? Ovviamente, il seguente codice VBA in questo articolo ti farà un favore. Per conoscere maggiori dettagli, leggi l'articolo sottostante.

Elenca tutte le tabelle pivot da una cartella di lavoro con codice VBA


freccia blu freccia destra Elenca tutte le tabelle pivot da una cartella di lavoro con codice VBA

Il seguente codice VBA può aiutarti a elencare tutti i nomi delle tabelle pivot insieme ai loro attributi, come l'intervallo di dati di origine, il nome del foglio di lavoro, la data aggiornata e così via.

1. Apri la cartella di lavoro in cui desideri elencare tutte le tabelle pivot.

2. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: elenca tutte le tabelle pivot da una cartella di lavoro

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. Quindi premere F5 chiave per eseguire questo codice, tutti i nomi delle tabelle pivot, l'intervallo di dati di origine, il nome del foglio di lavoro e altri attributi sono elencati in un nuovo foglio di lavoro che si trova nella parte anteriore del foglio di lavoro attivo come mostrato nella seguente schermata:

doc-list-all-pivottable-1


Articoli correlati:

Come verificare se una tabella pivot esiste in una cartella di lavoro?

Come aggiungere più campi nella tabella pivot?

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (20)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
unfortunately I'm getting multiple errors, this would have been absolutely great for my multi-tab, multi-pivot workbooks
This comment was minimized by the moderator on the site
Fit perfeclty!! Thanks a lot
This comment was minimized by the moderator on the site
run time error 1004
This comment was minimized by the moderator on the site
Huge help, saved me a ton of time tracking down one of a number of identically named pivot tables in a Workbook!
This comment was minimized by the moderator on the site
That's Awesome.
This comment was minimized by the moderator on the site
VERY handy to have in a pinch! Thank you.
This comment was minimized by the moderator on the site
Thanks for the post, I cleaned up the code a little by defining I and Long and deleting the ref to K since it wasn't used. Lastly I added a line just below your .Activate to show .Columns.AutoFit
This comment was minimized by the moderator on the site
This is awesome! I have been looking for a code like this one, but with the addition of showing all active fields per table. I need to clean up the source tables from unnecessary fields (too heavy) and they feed a book of over 300 pivots. I'd prefer not to go one pivot table at a time to figure out which fields I can eliminate... If you could show me how, it would be incredible... Thanks!
This comment was minimized by the moderator on the site
Amazing!!! thksss!!!!
This comment was minimized by the moderator on the site
Saved me from a major headache!
Couldn't find what pivot table was causing a "Refresh All Error"
Boom Listed with locations, Thank you so much
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations