Nicht die Visible-Eigenschaft des PivotItem-Klasse (VBA -)

Ich versuche, mich zu manipulieren, eine Excel 2007-Pivot-Tabelle Trog VBA, so kann ich die Schleife durch die Kategorien der pivot-Tabelle, setzen Sie alle auf unsichtbar aber ein, speichern Sie das Blatt als pdf-Datei und gehen Sie weiter zur nächsten Kategorie. Für diese verwende ich das folgende Stück code.

Dim pf As PivotField
Set pf = ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME")

Dim pi as PivotItem
For Each pi In pf.PivotItems

    If pi.Visible = False Then
        pi.Visible = True 'Error here
    End If

    Dim pi2 As PivotItem
    For Each pi2 In pf.PivotItems
        If pi2 <> pi Then
            pi2.Visible = False
        End If
    Next pi2

    'Saving to PDF goes here
Next pi

Die Schleife scheint zu funktionieren, das erste mal. Jede Kategorie wird deaktiviert, aber die erste und es gibt eine schöne PDF-Datei. Das nächste mal geht es in die Schleife jedoch gibt es ein "kann Nicht zum festlegen der Visible-Eigenschaft des PivotItem-Klasse" Fehler in der angegebenen Zeile. Ich bin der Tatsache bewusst, dass in einer pivot-Tabelle gibt, muss es mindestens ein Element ausgewählt, aber das ist nicht das problem hier, wie ich versuche, Sie setzen die Sichtbarkeit auf TRUE statt FALSE.

Ich habe versucht, es zu beheben, indem Sie eine Prüfung um Sie als vielleicht Sie sind nicht berechtigt, eine bereits sichtbare PivotItem sichtbar, aber das schien nicht zu funktionieren.

Jede Hilfe wäre sehr geschätzt werden!

Wenn Sie kommentieren Sie den Abschnitt, der erstellt ein PDF-Dokument, funktioniert es ohne Fehler?
Welche version von Excel verwendest du?

InformationsquelleAutor Stijnvdk | 2012-07-13

6

Dies ist aufgrund der Pivot-Tabelle mit Hilfe der zwischengespeicherten pivot-Elemente, die anstelle der aktuellen eine. Stellen Sie sicher, dass die Tabelle nicht behalten alle alten Elemente. So zu tun, rechts-klicken Sie auf Ihrer pivot-Tabelle, klicken Sie auf die Registerkarte Daten, und legen Sie die "Anzahl der itesm zu behalten-pro-Feld" auf "None". Der code, dies zu tun in VBA ist:
```
Dim pt As PivotTable

pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
```
InformationsquelleAutor Duc Pham
3

Ich weiß, das ist alt, aber möchte dazu beitragen für die Suche nach einer Lösung in der Zukunft.

Erlebte ich die gleiche Fehlermeldung, Lösung die ich fand war nur die pivottable aktualisieren, bevor Sie den pivotitem-Schleife.

Versuchen Sie die folgende Zeile des Codes:
```
ActiveSheet.PivotTables("PivotTable1").RefreshTable
```
Hallo Ben, herzlich willkommen auf Stack Overflow! +1 für die Konstruktive Antwort. Stellen Sie sicher, jegliche und alle code in Codeblöcken (einfach gesagt 4 Räume, bevor Sie Ihren code bei der Eingabe in den Antwort-text-Feld) für die Lesbarkeit.

InformationsquelleAutor whistler
0

Überprüfen Sie die PivotItem Orientierung. Ich glaube, dass Sie nicht setzen Sie Visible auf True, wenn die Ausrichtung ist xlHidden. Wenn es das ist, dann ändern Sie einfach die Ausrichtung auf etwas anderes zuerst.

InformationsquelleAutor RBarryYoung

Könnte es eine der folgenden:

Brauchen Sie mindestens eine sichtbare PivotItem und Sie sind Sie alle unsichtbar
PivotField - Orientation == XlPivotFieldOrientation.xlHidden (0)
PivotField ' s AutoSortOrder != Konstanten.xlManual (-4135)

Finden Sie unten ein Beispiel in C# von helper-Funktionen zum filtern einer pivot-Feld durch spezielle pivot-Elemente:

public static void FilterPivotItems(PivotField pf, List<string> pivotItemNames)
{
    PivotItems pis = pf.ChildItems;

    // Orientation != XlPivotFieldOrientation.xlHidden and we need to filter by at least one value (as Excel implies)
    if (pf.Orientation != 0 && pivotItemNames.Count > 0)
    {
        int oldAutoSortOrder = 0;

        if (pf.AutoSortOrder != (int)Constants.xlManual)
        {
            oldAutoSortOrder = pf.AutoSortOrder;
            pf.AutoSort((int)Constants.xlManual, pf.Name);
        }

        int pivotItemsCount = pf.PivotItems().Count;
        List<int> pivotItemsToHide = new List<int>();

        for (int i = 1; i <= pivotItemsCount; i++)
        {
            PivotItem pi = pf.PivotItems(i);

            // check if current pivot item needs to be hidden (if it exists in pivotItemNames)
            var match = pivotItemNames.FirstOrDefault(stringToCheck => stringToCheck.Equals(pi.Value));

            if (match == null)
            {
                // hide these pivot items later because we can hit exception "Unable to set the Visible property of the PivotItem class"
                // (this happens because all pivot items get hidden and we need to have at least one visible)
                pivotItemsToHide.Add(i);
            }
            else
            {
                TryFilterPivotItems(pi, true, true);
            }
        }

        for (int i = 0; i < pivotItemsToHide.Count; i++)
        {
            PivotItem pi = pf.PivotItems(pivotItemsToHide[i]);
            TryFilterPivotItems(pi, false, true);
        }

        if (oldAutoSortOrder != 0)
        {
            pf.AutoSort(oldAutoSortOrder, pf.Name);
        }

        PivotTable pt = pf.Parent as PivotTable;
        if (pt != null)
        {
            pt.Update();
        }
    }
}

public static void TryFilterPivotItems(PivotItem currentPI, bool filterValue, bool deferLayoutUpdate = false)
{
    try
    {
        PivotField pf = currentPI.Parent;
        PivotTable pt = pf.Parent as PivotTable;

        if (currentPI.Visible != filterValue)
        {
            if (deferLayoutUpdate == true && pt != null)
            {
                // just keep these three lines stick together, no if, no nothing (otherwise ManualUpdate will reset back to false)
                pt.ManualUpdate = true;
                currentPI.Visible = filterValue;

                // this may be redundant since setting Visible property of pivot item, resets ManualUpdate to false
                pt.ManualUpdate = false;
            }
            else
            {
                currentPI.Visible = filterValue;
            }
        }
    }
    catch (Exception ex)
    {

    }
}

public static void TryFilterPivotItems(PivotField pf, string itemValue, bool filterValue, bool deferLayoutUpdate = false)
{
    try
    {
        PivotItem currentPI = pf.PivotItems(itemValue);
        TryFilterPivotItems(currentPI, filterValue, deferLayoutUpdate);
    }
    catch (Exception ex)
    {

    }
}

InformationsquelleAutor Michael

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.