Comment modifier un tableau croisé dynamique de la source de données dans Excel?

Juste pensé à elle-cliquez n'importe où dans le tableau, puis allez dans les onglets en haut de la page et sélectionnez " Options de là, vous verrez un Changement de sélection de Source de Données.

clic droit sur le tableau croisé dynamique dans excel
choisissez assistant
cliquez sur 'retour'
cliquez sur " obtenir les données...'
dans la fenêtre de requête
Fichier De Définition De Table De

ensuite, vous pouvez créer une nouvelle ou de choisir une autre connexion

• Clic droit sur le tableau croisé dynamique, sélectionnez Assistant tableau croisé dynamique.
• Cliquez sur le bouton "retour" à deux reprises.
• Choisir la Source de Données Externes,cliquez sur suivant.
• Cliquez Sur Obtenir Les Données
• Dans le premier onglet, Bases de données, la première option est "Nouvelle Source de Données"

Être un peu méfiant de toute solution qui n'implique pas de re-création du tableau croisé dynamique à partir de zéro. Il est possible que votre pivot des champs " noms d'option pour sortir de la synchronisation avec les valeurs qu'ils présentent à la base de données.

Par exemple, dans un classeur que je traite impliquant des données démographiques, si vous essayez de sélectionner la "20-24" tranche d'âge option, Excel effectivement vous présente les chiffres pour les âges de 25 à 29 ans. Elle ne vous dit pas c'est de faire ceci, naturellement.

Voir ci-dessous pour la programmation (VBA) approche du problème que résout ce problème parmi d'autres. Je pense que c'est assez complet et robuste, mais je ne suis pas d'utiliser des Tableaux croisés dynamiques bien apprécierait de rétroaction.

Sub SwapSources()

strOldSource = "2010 Data"
strNewSource = "2009 Data"

Dim tmpArrOut

For Each wsh In ThisWorkbook.Worksheets
    For Each pvt In wsh.PivotTables
        tmpArrIn = pvt.SourceData
        ' row 1 of SourceData is the connection string.
        ' rows 2+ are the SQL code broken down into 255-byte chunks.
        ' we need to concatenate rows 2+, replace, and then split them up again

        strSource1 = tmpArrIn(LBound(tmpArrIn))
        strSource2 = ""
        For ii = LBound(tmpArrIn) + 1 To UBound(tmpArrIn)
            strSource2 = strSource2 & tmpArrIn(ii)
        Next ii

        strSource1 = Replace(strSource1, strOldSource, strNewSource)
        strSource2 = Replace(strSource2, strOldSource, strNewSource)

        ReDim tmpArrOut(1 To Int(Len(strSource2) /255) + 2)
        tmpArrOut(LBound(tmpArrOut)) = strSource1
        For ii = LBound(tmpArrOut) + 1 To UBound(tmpArrOut)
            tmpArrOut(ii) = Mid(strSource2, 255 * (ii - 2) + 1, 255)
        Next ii

        ' if the replacement SQL is invalid, the PivotTable object will throw an error
        Err.Clear
        On Error Resume Next
            pvt.SourceData = tmpArrOut
        On Error GoTo 0
        If Err.Number <> 0 Then
            MsgBox "Problems changing SQL for table " & wsh.Name & "!" & pvt.Name
            pvt.SourceData = tmpArrIn ' revert
        ElseIf pvt.RefreshTable <> True Then
            MsgBox "Problems refreshing table " & wsh.Name & "!" & pvt.Name
        Else
            ' table is now refreshed
            ' need to ensure that the "display name" for each pivot option matches
            ' the actual value that will be fed to the database.  It is possible for
            ' these to get out of sync.
            For Each pvf In pvt.PivotFields
                'pvf.Name = pvf.SourceName
                If Not IsError(pvf.SourceName) Then ' a broken field may have no SourceName
                    mismatches = 0
                    For Each pvi In pvf.PivotItems
                        If pvi.Name <> pvi.SourceName Then
                            mismatches = mismatches + 1
                            pvi.Name = "_mismatch" & CStr(mismatches)
                        End If
                    Next pvi
                    If mismatches > 0 Then
                        For Each pvi In pvf.PivotItems
                            If pvi.Name <> pvi.SourceName Then
                                pvi.Name = pvi.SourceName
                            End If
                        Next
                    End If
                End If
            Next pvf
        End If
    Next pvt
Next wsh

End Sub

pour MS excel 2000 version d'office,
cliquez sur le tableau croisé dynamique
vous trouverez un onglet au-dessus de la ribon, appelé tableau croisé dynamique de l'outil - cliquer sur la
Vous pouvez modifier la source de données à partir de l'onglet Données