Collapse All - Pivot Table Interop

[ZecaLoteiro 0]

Bom dia,

 

Gerei uma tabela dinâmica (Pivot Table) no excel via VB.net Interop.

Porém alguns resultados vem expandidos e outros recolhidos.

Gostaria de por padrão deixar tudo recolhido para facilitar a visualização do usuário.

Nas minhas pesquisas encontrei pessoas orientando a utilizar o PivotField.ShowDetail = False, porém não funcionou.

Alguém já passou por isso? Sabe como solucionar?

 

Desde já obrigado.

 

Att,

[KhaosDoctor 242]

Acredito que você tenha que ir linha a linha:

https://social.msdn.microsoft.com/Forums/office/en-US/e1fca609-875e-433c-a354-1b251ebe58c5/expand-entire-fieldshow-detail-programmatically-in-excel-pivot-table?forum=exceldev

[ZecaLoteiro 0]

Quando vou no PivoItem de cada campo recebo essa msg de erro:

"Não é possível definir a propriedade ShowDetail da classe PivotItem"

:(

[KhaosDoctor 242]

PivotItem tem uma propriedade chamada ShowDetail?

[ZecaLoteiro 0]

No intellisense é mostrado o ShowDetail como uma propriedade tanto do PivotField quanto do PivotItem...

Se eu uso o ShowDetail uma única vez no primeiro item não dá erro (mas também não funciona), porém se eu uso dentro do laço de repetição, dá o erro: "Não é possível definir a propriedade ShowDetail da classe PivotItem".

 

 

Não dá erro e não funciona:

Dim pT As PivotTable = planilhaResumo.PivotTables(1)
pT.PivotFields(1).PivotItems(1).ShowDetail = False

Dá erro e não funciona:

Dim pT As PivotTable = planilhaResumo.PivotTables(1)
For Each field As PivotField In pT.PivotFields
  For Each item As PivotItem In field.PivotItems
    item.ShowDetail = False
  Next
Next

[KhaosDoctor 242]

Verifique se todos os itens estão definidos

[ZecaLoteiro 0]

Desculpe minha ignorância no assunto, mas como faço isso?

[KhaosDoctor 242]

Dá uma olhada se todos os PivotItems estão instanciados e preenchidos.

 

Faz um for e vai dando um print neles, ou então poe um breakpoint