Como listar todas as Tabelas Dinâmicas de um livro?
Suponha que tenha um livro grande com várias Tabelas Dinâmicas e queira listar todas elas. É possível? Claro que sim — o código VBA apresentado neste artigo vai ajudá-lo. Para saber mais detalhes, leia o artigo abaixo.
Listar todas as Tabela Dinâmica de um livro com código VBA
Listar todas as Tabela Dinâmica de um livro com código VBA
O seguinte código VBA permite-lhe listar todos os nomes das Tabelas Dinâmicas, juntamente com os respetivos atributos, como o intervalo de Dados de Origem, o Nome da Folha, a data de atualização e outros.
1. Abra o seu livro a partir do qual pretende listar todas as Tabelas Dinâmicas.
2. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: Listar todas as Tabela Dinâmica de um livro
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. Em seguida, prima a tecla F5 para executar este código. Os nomes de todas as Tabelas Dinâmicas, os respetivos intervalos de Dados de Origem, os nomes das folhas e outros atributos são listados numa nova folha inserida à frente da sua folha ativa, conforme ilustrado na imagem seguinte:
Artigos relacionados:
Como verificar se uma Tabela Dinâmica existe num livro?
Como adicionar vários campos a uma Tabela Dinâmica?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos