VBA Wählen Sie " Pivot-Tabelle

Ich versuche, aktivieren Sie eine pivot-Tabelle mit VBA, und haben festgestellt, ein Problem in der pivot-Tabelle beginnen kann, an A3 (wenn es keine Berichts-Filter aktiviert) oder A6 (wenn 3-Berichtsfilter ausgewählt wurden) etc. Entsprechend der pivot-Tabelle nicht immer an der gleichen Stelle auf dem Arbeitsblatt. Löschen der pivot nur entfernt alle Daten, und melden Sie Filter, obwohl nicht bewegen Sie die pivot-Tabelle wieder bis auf seine ursprüngliche position. Gibt es irgendeine Möglichkeit mit VBA wählen Sie die pivot-Tabelle (so wie in der Lage sein, zu kopieren und die Daten in einem neuen Arbeitsblatt), unabhängig davon, wo kann es sein positioniert auf dem Arbeitsblatt?

Dank.

UPDATE - ich habe da herausgefunden, wie dies zu tun. Seine eigentlich ganz einfach:

Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select
Sollten Sie es schreiben als eine Antwort statt einer Bearbeiten, und bestätigen Sie es.
Danke - werde ich tun, sobald die Frist für die Beantwortung meiner eigenen Fragen abläuft!
Jetzt haben Sie einen Handgriff auf, wie Sie die PivotTable, können Sie sehr wohl wissen wollen, wie auf die verschiedenen Teile der PivotTable. Beispiele finden Sie hier: peltiertech.com/WordPress/referencing-pivot-table-ranges-in-vba

InformationsquelleAutor Nat Aes | 2013-08-22

  1. 3

    Verwenden Sie den folgenden code (für ein pivot-Tabelle Namen PivotTable1):

    Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select

    InformationsquelleAutor Nat Aes

Schreibe einen Kommentar