VBA 数据透视表运行时错误 5 无效的过程调用 MS Office 2016.

Question

嗨，我在运行捕获数据透视表创建的宏时遇到问题。我使用 excel 2016 来创建宏。VBA 数据透视表运行时错误 5 无效的过程调用 MS 办公室 2016 从这一行我得到错误：无效的过程调用或参数ActiveWorkbook.Worksheets("page2"(。数据透视表("数据透视表1"(。数据透视缓存。_ 创建数据透视表表目标：="页面3！R3C1"， 表名称：="数据透视表1" _， 默认版本：=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

Answer 1

您可以尝试更改数据透视表缓存版本，因为如果您尝试在早期的 Excel 版本中运行它，请发送此消息。

像这篇文章中的一些：

运行时错误 5 有时在 VBA 中创建数据透视表