In diesem Beispiel wird festgelegt, dass die Daten des PivotTable-Berichts zusammen mit der Arbeitsmappe gespeichert werden.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable pvtTable.SaveData = True