Excel VBA Changement de Source de Données de Tableau croisé dynamique

Bon, j'ai tamisé à travers des tonnes de messages et ne peut pas obtenir mon code à exécuter. Je suis en train de créer un rapport de rapprochement, que j'ai l'exécution de l'amende juste. Le problème vient quand je suis en train d'essayer de prendre chaque mois du rapport et de le coller dans un fichier de rapprochement. J'ai tout fonctionne parfaitement, sauf que je ne peux pas pour la vie de me comprendre POURQUOI mon tableau croisé dynamique de la source ne change pas.

L'erreur que j'obtiens avec le code est:

Erreur d'exécution '1004': définie par l'Application ou par l'objet défini erreur

Des suggestions? :-\

    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
  • Quelle est la ligne de l'erreur?
  • Pensez à utiliser uniquement ActiveSheet.Range("$A$1:$H$" & lastrow). Assurez-vous que lastrow existe.
  • C'est en soulignant l'ensemble de la section en vertu de l'instruction Else (moins l'actualisation du code)
  • J'ai essayé, même erreur. J'ai lastrow impression en debug chaque fois que je lance, juste pour s'assurer qu'il N'existe pas! 🙂
InformationsquelleAutor Meghan Anderson | 2015-07-07
  1. 3

    Puisque le problème est ici: 

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

    Je suppose que vous ne pouvez pas obtenir un tableau croisé dynamique de passage d'un tableau en argument: .PivotTables(PivTbl)

    PivTbl est déjà la table que vous voulez. 

    PivTbl.ChangePivotCache.......
    InformationsquelleAutor Daniel Möller