Excel Vba刷新数据透视表，它们从报表连接中消失

Question

我是VBA的新手，我正在尝试刷新给定工作表中所有数据透视表的范围 这是我正在使用的代码

    For Each pvtbl In DashboardSheet.PivotTables
       'change the Ranges
       DashboardSheet.PivotTables(pvtbl.Name).ChangePivotCache 
       ActiveWorkbook.PivotCaches.Create _
       (SourceType:=xlDatabase, SourceData:=NewRangeName)
    Next

这很好，但不幸的是有2个问题

1-如果我尝试添加切片器，则看不到将切片器链接到所有枢轴的报告连接（所有枢轴具有相同的源范围）
2-如果我已经有切片器，则此代码不起作用

我收到的错误之一是打开文件并尝试过滤时 “数据透视表报表已保存，没有基础数据” 非常感谢您的帮助，因为我已经在互联网上进行了研究，但无法真正理解自己在做什么错事