In diesem Beispiel wird die Verbindungszeichenfolge des ersten PivotTable-Cache als Bezug auf eine Offline-Cube-Datei verwendet.
With ActiveWorkbook.PivotCaches(1) .LocalConnection = _ "OLEDB;Provider=MSOLAP;Data Source=C:\Data\DataCube.cub" .UseLocalConnection = True End With