Recréer les données source du cache à pivottage

Aller à la fenêtre immédiate et tapez

? Ceworkbook.pivotcaches (1) .Querytype

Si vous obtenez autre chose que 7 (xladorecordset), la propriété Recordset ne s'applique pas à ce type. de pivotcache et retournera cette erreur.

Si vous obtenez une erreur sur cette ligne, votre pivotcache n'est pas basé sur des données externes du tout.

Si vos données sources vient de ce travail (c.-à-d. Données Excel), alors vous pouvez utiliser

? Ceworkbook.pivotcaches (1) .Sourcedata

Pour créer un objet de plage et une boucle à travers elle.

Si votre QueryType est 1 (xlodbcquerie), alors SourceData contiendra la chaîne de connexion et le commandement de commandement à créer et de créer un enregistrement ADO, comme celui-ci: xxx

Vous avez besoin de la référence ADO, Mais vous avez dit que vous avez déjà cet ensemble.

Malheureusement, il semble y avoir aucun moyen de manipuler directement PivotCache dans Excel.

J'ai trouvé un travail autour. Le code suivant extrait le cache pivot de chaque table de pivotement trouvé dans un classeur, la place dans une nouvelle table de pivot et ne crée qu'un seul champ de pivotements (pour vous assurer que toutes les lignes du cache pivot sont incorporées au total), puis des incendies ShowDetail, qui crée une nouvelle feuille avec toutes les données de la table pivot. P>

J'aimerais toujours trouver un moyen de travailler directement avec Pivotcache, mais cela obtient le travail effectué. P>

Public Sub ExtractPivotTableData()

    Dim objActiveBook As Workbook
    Dim objSheet As Worksheet
    Dim objPivotTable As PivotTable
    Dim objTempSheet As Worksheet
    Dim objTempPivot As PivotTable

    If TypeName(Application.Selection) <> "Range" Then
        Beep
        Exit Sub
    ElseIf WorksheetFunction.CountA(Cells) = 0 Then
        Beep
        Exit Sub
    Else
        Set objActiveBook = ActiveWorkbook
    End If

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With

    For Each objSheet In objActiveBook.Sheets
        For Each objPivotTable In objSheet.PivotTables
            With objActiveBook.Sheets.Add(, objSheet)
                With objPivotTable.PivotCache.CreatePivotTable(.Range("A1"))
                    .AddDataField .PivotFields(1)
                End With
                .Range("B2").ShowDetail = True
                objActiveBook.Sheets(.Index - 1).Name = "SOURCE DATA FOR SHEET " & objSheet.Index
                objActiveBook.Sheets(.Index - 1).Tab.Color = 255
                .Delete
            End With
        Next
    Next

    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With

End Sub

Je me suis retrouvé avoir le même problème, avoir besoin de gratter des données par programmation à provenir de différentes excelles avec des données pivotes en cache. Bien que le sujet soit un peu vieux, il n'ya toujours aucun moyen direct d'accéder aux données.

ci-dessous Vous pouvez trouver mon code, ce qui est un raffinement plus généralisé de la solution déjà affichée.

La différence majeure est la élimination du filtre des champs , car parfois pivot est livré avec des filtres sur, et si vous appelez .Showdetail, il manquera des données filtrées.

Je l'utilise pour gratter format de fichier différent sans avoir à les ouvrir, il me servant assez bien jusqu'à présent.

espère que c'est utile.

crédit à la feuille de calcul du filtreGuru.com (bien que je Ne vous souvenez pas à quel point est l'original et combien est le mien d'être honnête) xxx