Question

您好我在运行捕获数据透视表创建的宏时遇到问题。我使用excel 2016来创建宏。 VBA数据透视表运行时错误5无效过程调用MS Office 2016 从这一行我得到错误： 无效的过程调用或参数 的 ActiveWorkbook.Worksheets（＆＃34;第2页＆＃34）的数据透视表。（＆＃34; PivotTable1＆＃34）PivotCache。 _CreatePivotTable TableDestination：=＆＃34; page3！R3C1＆＃34;，TableName：=＆＃34; PivotTable1＆＃34; _，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

Answer 1

您可以尝试更改您的PivotTableCache版本，因为如果您尝试在早期的Excel版本中运行它，请发送此消息。

有些人喜欢这篇文章：

Runtime Error 5 Sometimes in VBA Creating PivotTable

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

1 个答案: