在所提到的代码上获得调试错误,这些代码可以转动这些东西。
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"abc_METRICS_DASHBOARD_1.0!R1C1:R302088C22", Version:=xlPivotTableVersion15) _
.CreatePivotTable TableDestination:="Sheet1!R1C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion15