In diesem Beispiel wird ein neuer PivotTable-Cache erstellt, der auf einem OLAP-Anbieter basiert, und anschließend in Zelle "A3" im aktiven Tabellenblatt ein neuer PivotTable-Bericht erstellt, der auf dem Cache basiert.
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal) .Connection = _ "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National" .MaintainConnection = True .CreatePivotTable TableDestination:=Range("A3"), _ TableName:= "PivotTable1" End With With ActiveSheet.PivotTables("PivotTable1") .SmallGrid = False .PivotCache.RefreshPeriod = 0 With .CubeFields("[state]") .Orientation = xlColumnField .Position = 0 End With With .CubeFields("[Measures].[Count Of au_id]") .Orientation = xlDataField .Position = 0 End With End With
In diesem Beispiel werden der ersten Abfragetabelle im ersten Tabellenblatt neue ODBC-Verbindungsinformationen bereit gestellt.
Worksheets(1).QueryTables(1) _ .Connection:="ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;"
In diesem Beispiel wird eine Textdatei angegeben.
Worksheets(1).QueryTables(1) _ Connection := "TEXT;C:\My Documents\19980331.txt"