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

Question

好的，我已经筛选了大量的帖子，但无法将我的代码发送到运行。我正在尝试创建对帐报告，我已经运行ning 了。当我试图获取每个月的报告并将其粘贴到主对帐文件中时，问题就来了。我的一切都运行良好，除了我一辈子都弄不明白为什么我的枢轴 table 来源不会改变。

我在使用代码时遇到的错误是：

Run-time error '1004': Application-defined or object-defined error

有什么建议吗？ :-\

    Dim SrcData As String
    Dim PivTbl As PivotTable

    SrcData = ActiveSheet.Name & "!" & Range("$A:$H$" & LastRow).Address(ReferenceStyle:=xlR1C1)

    On Error Resume Next
        Set PivTbl = Sheets("Report").PivotTables("ReportPivot")
    On Error GoTo 0
        If PivTbl Is Nothing Then
            'create pivot
        Else
            ActiveWorkbook.PivotTables(PivTbl).ChangePivotCache ActiveWorkbook. _
            PivotCaches.Create(SourceType:=xlDatabase, SourceData:=SrcData, _
            Version:=xlPivotTableVersion15)

            PivTbl.RefreshTable
        End If

Answer 1

既然问题在这里：

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

我想你不能得到一个枢轴 table 将 table 本身作为参数传递：.PivotTables(PivTbl)

PivTbl已经是你想要的table了。

PivTbl.ChangePivotCache.......

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

Excel VBA Changing Data Source for Pivot Table

excel

vba

pivot