Como listar todas as tabelas dinâmicas de uma pasta de trabalho?
Suponha que você tenha uma pasta de trabalho grande que contém várias tabelas dinâmicas e agora deseja listar todas as tabelas dinâmicas desta pasta de trabalho. Isso é possível? Claro, o seguinte código VBA neste artigo irá ajudá-lo. Para saber mais detalhes, por favor, leia o artigo abaixo.
Listar todas as tabelas dinâmicas de uma pasta de trabalho com código VBA
Listar todas as tabelas dinâmicas de uma pasta de trabalho com código VBA
O seguinte código VBA pode ajudá-lo a listar todos os nomes das tabelas dinâmicas junto com seus atributos, como intervalo de dados de origem, nome da planilha, data de atualização e assim por diante.
1. Abra sua pasta de trabalho na qual deseja listar todas as tabelas dinâmicas.
2. Pressione e segure as teclas ALT + F11, isso abrirá a janela do Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Listar todas as tabelas dinâmicas de uma pasta de trabalho
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, pressione a tecla F5 para executar este código; todos os nomes das tabelas dinâmicas, intervalos de dados de origem, nomes das planilhas e outros atributos serão listados em uma nova planilha colocada à frente da sua planilha ativa, conforme mostrado na captura de tela a seguir:
Artigos relacionados:
Como verificar se uma tabela dinâmica existe em uma pasta de trabalho?
Como adicionar vários campos em uma tabela dinâmica?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins