[Resolvido]Exportar uma consulta em modo de visualização tabela dinamica

pessoal

Eu tenho um código abaixo que exporta a minha consulta para o excel, entretanto, a minha consulta esta no formato de tabela dinamica e eu gostaria que fosse exportado mantendo o layout que ja fiz na consulta.

Function exportar()

On Error GoTo exportar_Err
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha

'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "SELECAO_TB_CHAMADAS"
strConsulta = "NOVACONSULTA"

'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = "C:\Users\Andre\Desktop\TESTE_IMPORTACAO\BASE.XLS"
strNomePLanilha = "C:\Users\Andre\Desktop\TESTE_IMPORTACAO\BASE.XLS"

'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

exportar_Exit:
Exit Function


exportar_Err:
MsgBox Error$
Resume exportar_Exit

End Function

Existe a possibilidade de adaptar o meu codigo para realizar tal ação?

Obrigado

Vou puxar o seu poste para cima, uma vez que ainda não obteve resposta.

Olhei meio rapidamente e não consegui visualizar bem a temática do situação. E se tentar fazer uma nova consulta, tendo essa da tabela dinâmica como fonte e exportar a nova consulta para o Excel?

Vai dar ao mesmo. O que ele pretende é exportar tal e qual como na consulta está.

Deve estar resolvido,qualquer coisa reabra, por favor.