como posso resolver este erro Não é possível obter a propriedade PivoFields da classe PivoTable

Question

criando o item count na mão funciona, em tempo de execução com uma variavel da o erro Não é possível obter a propriedade PivoFields da classe PivoTable

cITEM1 = Trim(Worksheets("BASE").Cells(1, J))

cITEM = "Contagem de " + Trim(Worksheets("BASE").Cells(1, J).Text)

' ActiveSheet.PivotTables("Tabela dinâmica1").AddDataField ActiveSheet. _

' PivotTables("Tabela dinâmica1").PivotFields( _

' "3.4. Telefonia: 3.4.1. Os Sistemas de telefonia atendem às necessidades operacionais da unidade? (Caso negativo, informar no campo ""comentário"" os problemas identificados)" _

' ), _

' "Contagem de 7.1. A unidade está integrada ao Plano de Logística Sustentável?   (Caso positivo informar no campo "comentário" quais os temas estão aplicados à unidade: 1 - Energia elétrica; 2 - Água e esgoto; 3 - Limpeza; 4 - Segurança; 5 - Gestão de resíduos; 6 - Apoio Administrativo; 7 - Qualidade de Vida; 8 - Transportes; 9 - Material de Consumo; 10 - Material Permanente; 11 - Manutenção Predial)" _

' , xlCount

Aqui

ActiveSheet.PivotTables(cNOMETABDINANMICA).AddDataField ActiveSheet.PivotTables(cNOMETABDINANMICA).PivotFields(cITEM1), cITEM, xlCount

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Baixei seu arquivo, mas não tenho permissão para abri-lo.

Você pode carregar o arquivo em mensagem privada.

Answer 2

PLANILHA EXEMPLO AQUI NO LINK MOD_tb.xlsb

Answer 3

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você poderia nos compartilhar uma pasta de trabalho de teste para depurar código?

Para compartilhar uma pasta de trabalho de exemplo, carregue no OneDrive ou em qualquer outra unidade de nuvem. Então poste um link aqui.