VBA數據透視表運行時錯誤5無效的MS Office 2016程序調用

Question

您好我在運行捕獲數據透視表創建的宏時遇到問題。我用Excel 2016來創建宏。 VBA透視表運行時錯誤5 MS辦公室2016 從該行無效過程調用我的錯誤：無效過程調用或參數 ActiveWorkbook.Worksheets（「第2頁」）的數據透視表（「PivotTable1」）。 PivotCache。 _ CreatePivotTable TableDestination：= 「！第3頁R3C1」，表名：= 「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 

Answer 1

你可以試着改變你的PivotTableCache版本，因爲如果你嘗試在較早的運行Excel版本發送此消息。

事端喜歡在這個帖子：

Runtime Error 5 Sometimes in VBA Creating PivotTable