Excel-VBA Ändern der Datenquelle für die Pivot-Tabelle

Okay, ich habe gesiebt durch Tonnen von Beiträgen und nicht bekommen, mein code ausgeführt werden. Ich bin versuchen, um eine Versöhnung Bericht, die ich habe laufen einwandfrei. Das problem kommt, wenn ich versuche zu nehmen jeden Monats Bericht, und fügen Sie Sie in einen master-Versöhnung-Datei. Ich habe alles perfekt funktioniert, außer ich kann nicht für das Leben von mir herauszufinden, WARUM meine pivot-Tabelle als Quelle wird sich nicht ändern.

Den Fehler bin ich immer mit dem code:

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

Irgendwelche Vorschläge? :-\

    Dim SrcData As String
    Dim PivTbl As PivotTable

    SrcData = ActiveSheet.Name & "!" & Range("$A$1:$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
Was ist die Linie der Fehler?
Erwägen Sie die Verwendung nur ActiveSheet.Range("$A$1:$H$" & lastrow). Stellen Sie sicher, lastrow existiert.
Es ist die Hervorhebung der gesamte Bereich unter der Else-Anweisung (minus der refresh-code)
Das habe ich versucht, gleiche Fehlermeldung. Ich habe lastrow Druck im debug-jedes mal, wenn ich laufen, nur um sicherzustellen, dass es existiert! 🙂

InformationsquelleAutor Meghan Anderson | 2015-07-07

  1. 3

    Da das problem ist hier: 

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

    Ich denke, man kann nicht eine pivot-Tabelle übergeben die Tabelle selbst als argument: .PivotTables(PivTbl)

    PivTbl ist bereits die Tabelle, die Sie möchten. 

    PivTbl.ChangePivotCache.......
    Das klappte! Vielen, vielen Dank!

    InformationsquelleAutor Daniel Möller

Schreibe einen Kommentar