Question

好的，我已经筛选了大量的帖子，无法让我的代码运行。我正在尝试创建一个和解报告，我已经运行得很好。当我试图获取每个月的报告并将其粘贴到主对帐文件中时，问题就出现了。我把一切都做得很完美，除了我不能为我的生活弄清楚为什么我的枢轴表源不会改变。

我在代码中得到的错误是：

运行时错误＆＃39; 1004＆＃39;：应用程序定义或对象定义的错误

有什么建议吗？： - \

AsyncTask

Answer 1

因为问题在这里：

 ActiveWorkbook.PivotTables(PivTbl).ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:=SrcData, _
        Version:=xlPivotTableVersion15)

我猜你无法获得一个数据透视表，将表本身作为参数传递：.PivotTables(PivTbl)

PivTbl已经是您想要的表格了。

PivTbl.ChangePivotCache.......

Excel VBA更改数据透视表的数据源

1 个答案: