运行时错误“ 1004”：无法获取工作表类的数据透视表属性

Question

记录的宏以更新工作表中的各种数据透视表中的日期导致错误

我记录了一个宏，该宏将所有数据透视表切片器中的日期更新为昨天的日期。 但是，我的宏失败，并且在运行时显示运行时错误。 不知道我在做什么错。 任何帮助将非常感激！

 Workbooks.Open Filename:= _
        "L:\Databases\master.xlsx"
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.SlicerCaches("NativeTimeline_Assessment_Complete_Date1"). _
        TimelineState.SetFilterDateRange "12/3/2018", Date - 1
    ActiveWindow.SmallScroll Down:=6
    Sheets("MySheet").PivotTables("PivotTable1").PivotFields("Assessment Completed Date") _
        .CurrentPage = "(All)"
    With Sheets("MySheet").PivotTables("PivotTable1").PivotFields( _
        "Assessment Completed Date")
        .PivotItems(Date - 1).Visible = True
    End With
    ActiveWindow.SmallScroll Down:=9
    Sheets("MySheet").PivotTables("PivotTable2").PivotFields("Added Date"). _
        ClearAllFilters
    Sheets("MySheet").PivotTables("PivotTable2").PivotFields("Date").CurrentPage = _
        Date - 1
    ActiveWindow.SmallScroll Down:=21
    ActiveWorkbook.SlicerCaches("NativeTimeline_Assessment_Completed_Date1"). _
        TimelineState.SetFilterDateRange "12/3/2018", Date - 1
    ActiveWindow.SmallScroll Down:=-63
    ActiveWorkbook.Save
    ActiveWindow.Close
    ChDir "L:\Databases"
    Workbooks.Open Filename:= _
        "L:\Databases\master1.xlsx"
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.SlicerCaches("NativeTimeline_Assessment_Completed_Date"). _
        TimelineState.SetFilterDateRange "12/3/2018", Date - 1
    ActiveWindow.SmallScroll Down:=9
    ActiveWorkbook.SlicerCaches("NativeTimeline_Assessment_Complete_Date"). _
        TimelineState.SetFilterDateRange "12/3/2018", Date - 1
    ActiveWindow.SmallScroll Down:=24
    ActiveWorkbook.SlicerCaches("NativeTimeline_Completed_Date").TimelineState. _
        SetFilterDateRange "12/3/2018", Date - 1
    ActiveWindow.SmallScroll Down:=12
    ActiveWorkbook.SlicerCaches("NativeTimeline_Assessment_Complete_Date2"). _
        TimelineState.SetFilterDateRange "12/3/2018", Date - 1
    ActiveWindow.SmallScroll Down:=-78
    Range("B13:B14").Select
    ActiveWindow.SmallScroll Down:=-27
    Range("F20").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub