¿Necesita crear varias tablas dinámicas en una hoja de trabajo? ¿Cómo hacerlo usando VBA? Quiero orientación experta.

Como se muestra a continuación, cree dos tablas dinámicas (una para A1 y otra para D1) en la tabla "Resumen" para los datos de A1 a D100 en la hoja de trabajo actual. Los nombres de las tablas son mypc001 y mypc002 respectivamente. Primero, copie el siguiente código en varias tablas dinámicas, copie algunas y luego cambie pv2 y mypv002 a pv3, mypv003 u otros nombres, siempre que sean diferentes de los nombres anteriores.

Privado?Sub?CommandButton1_Click()

Dim?pv1?As?PivotTable

Establecer?pv1?=?Worksheets("Resumen").PivotTableWizard( SourceType PivotTableWizard(SourceType:=xlDatabase,?SourceData：=Range("a1:d100"),?TableDestination：=Worksheets("Summary").Range("a1"),?tablame：="mypv001")

pv1.AddFields?RowFields：=Array("xm",?date")

pv1.Date")

pv1.AddDataField?pv1.PivotFields("Usado Horas"),? "TotalTimeUsed",?xlSum

Dim?pv2?As?PivotTable

Set?pv2?=?Worksheets("Resumen").PivotTableWizard(SourceType:= xlDatabase,?SourceData:= Range("a1:d100"),?TableDestination:=Worksheets("Summary").Range("d1"),?tablename:="mypv002")

pv2. AddFields?Salida total", xlSum

¿Fin?