ID do artigo: 119318 - Última revisão: quinta-feira, 23 de junho de 2005 - Revisão: 2.0

Campos de dados não incluídos na coleção PivotFields

Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Expandir tudo | Recolher tudo

Sintomas

Quando você executa uma macro Visual Basic for Applications que utiliza a coleção PivotFields para retornar os campos em uma tabela dinâmica, os campos da área de dados (objeto DataFields) não são retornados.

Causa

Esse comportamento ocorre porque a coleção PivotFields não contém o objeto DataFields ou os campos que estão na área de dados. Campos de dados são criados de campos de tabela dinâmica. Por exemplo, o campo de dados "Soma de lucro" é criado arrastando o campo de tabela dinâmica "Lucro" para a área de dados na tabela dinâmica no Assistente de tabela dinâmica. Vários campos de dados podem ser criados do mesmo campo dinâmica.

Como Contornar

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades. Para retornar apenas os campos de dados em uma tabela dinâmica, use o objeto DataFields como no exemplo a seguir:
   Sub DisplayDataFields()
       Dim x As Variant
       Dim Pivot1 As PivotTable
       Set Pivot1 = Worksheets(1).PivotTables("Pivot1")
       For Each x In Pivot1.DataFields
           'Display pivot field name (name of field in table)
           MsgBox "Pivotfield Name is " & x.Name
           'Display pivot field source name (name of field in original
           'data)
           MsgBox "Pivotfield SourceName is " & x.SourceName
       Next
   End Sub
				
para retornar os campos de tabela dinâmica visíveis na tabela dinâmica propriamente dito, use a propriedade VisibleFields no lugar da propriedade DataFields como na linha a seguir:
   For Each x In Pivot1.VisibleFields
				

Situação

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados no começo deste artigo.

Mais Informações

Você pode utilizar a propriedade SourceName do objeto PivotField para retornar o nome do campo de tabela dinâmica como ele aparece no original dados de origem de tabela dinâmica. A propriedade Name do objeto PivotField retorna o nome do campo de tabela dinâmica como ele aparece na tabela.

Referências

Para obter mais informações sobre o objeto PivotField, clique no botão Pesquisar na referência do Visual Basic e digite:
campos de tabela dinâmica: descrito
Para obter mais informações sobre a propriedade SourceName, clique no botão Pesquisar na referência do Visual Basic e digite:
Propriedade SourceName
No Microsoft Excel 7.0, clique em Assistente de resposta no menu Arquivo, digite o seguinte:
Propriedade SourceName
e clique em Pesquisar.

A informação contida neste artigo aplica-se a:
  • Microsoft Excel 97 Standard Edition
Palavras-chave: 
kbmt kbbug kbdtacode kbpending KB119318 KbMtpt
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 119318  (http://support.microsoft.com/kb/119318/en-us/ )
Retired KB ArticleAviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.