嗨我在运行宏捕获创建数据透视表时遇到问题 . 我使用excel 2016来创建宏 . VBA数据透视表运行时错误5无效过程调用MS Office 2016从此行我收到错误: invalid procedure call or argument ActiveWorkbook.Worksheets("page2").PivotTables("PivotTable1").PivotCache. _ CreatePivotTable TableDestination:="page3!R3C1", TableName:="PivotTable1" _, DefaultVersion:=6
Sub PIVOT()
'
' PIVOT Macro
'
'
Sheets("page1").Select
Sheets.Add
**ActiveWorkbook.Worksheets("page2").PivotTables("PivotTable1").PivotCache. _
CreatePivotTable TableDestination:="page3!R3C1", TableName:="PivotTable1" _
, DefaultVersion:=6**
Sheets("page3").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("fruit")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("fruit"), "Count of fruit", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields("description")
.Orientation = xlPageField
.Position = 1
End With
ActiveWindow.SmallScroll Down:=-3
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Actual")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("description"). _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("description"). _
CurrentPage = "group"
Range("B15").Select
End Sub
1 回答
您可以尝试更改您的PivotTableCache版本,因为如果您尝试在早期的Excel版本中运行它,请发送此消息 .
在这篇文章中有些喜欢:
Runtime Error 5 Sometimes in VBA Creating PivotTable