ActiveWorkbook.PivotCache.CreatePivotTable TableDestination:="Sheet2!R3C1", TableName:="数据透视表8", DefaultVersion:=xlPivotTableVersion15 这一行提示的