Cómo cambiar la fuente de una tabla de Excel Pivot Usando VBA

Microsoft Excel es una aplicación de hoja de cálculo. Una característica de este programa es que usted puede utilizar sus hojas de trabajo para almacenar los datos de manera similar a la forma en que lo haría en una base de datos y luego hacer referencia a él en pantallas gráficas dinámicas. Hay dos tipos de pantallas que puede utilizar: tablas dinámicas y gráficos dinámicos . Tablas dinámicas pueden ser usados ​​para clasificar, filtrar y resumir los datos. La única forma de cambiar la fuente de datos utilizada por una tabla dinámica una vez que ha sido creado por el asistente es actualizar desde el código VBA en el fondo. Instrucciones
1

Crear un objeto de tabla dinámica en VBA para que pueda actualizar el origen . Copie el código abajo y lo puso en su macro o función.

PtMyPivotTable As tabla dinámica
2

Conecte el objeto de tabla dinámica con su tabla dinámica real. Copie el código de abajo .

Establecer ptMyPivotTable = ActiveSheet.PivotTables ( 1 )
3

actualizar la propiedad SourceData del objeto de tabla dinámica a los nuevos valores . Usted puede hacer esto copiando el código VBA proporcionado . Sustituya el rango de datos deseado en lugar de " A1 " en el ejemplo .

PtMyPivotTable.SourceData = Range (" A1") . CurrentRegion.Address ( true, true , xlR1C1 , True)

Para hacer referencia a un rango en una hoja diferente , puede utilizar el siguiente código.

ptMyPivotTable.SourceData = Sheets (" mySheetName ") . [ A1] . CurrentRegion.Address ( true, true , xlR1C1 , True)
4

Actualizar los datos realmente muestran en su tabla dinámica mediante el comando VBA a continuación.

ptMyPivotTable.RefreshTable
5

liberar los recursos que utilizó en el objeto de tabla dinámica estableciéndolo igual a Nothing .

ptMyPivotTable Set = Nothing