PivotCache.Connection-Eigenschaft (Excel)

  • Artikel

Gibt eine Zeichenfolge zurück, die eine der folgenden Elemente enthält, oder legt sie fest:

  • OLE DB-Einstellungen, mit denen Microsoft Excel eine Verbindung mit einer OLE DB-Datenquelle herstellen kann
  • ODBC-Einstellungen, mit denen Excel eine Verbindung mit einer ODBC-Datenquelle herstellen kann
  • Eine URL, die Excel das Herstellen einer Verbindung mit einer Webdatenquelle ermöglicht
  • Pfad zu und Dateiname einer Textdatei
  • Pfad zu und Dateiname einer Datei, die eine Datenbank oder Webabfrage angibt

Variant mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Verbindung

Ausdruck Ein Ausdruck, der ein PivotCache-Objekt zurückgibt.

HinwBemerkungeneise

Wenn Sie die Offline-Cubedatei verwenden, legen Sie die UseLocalConnection -Eigenschaft auf True fest, und verwenden Sie statt der Connection -Eigenschaft die LocalConnection -Eigenschaft.

Alternativ können Sie stattdessen mithilfe der Microsoft ADO-Bibliothek (ActiveX Data Objects) direkt auf eine Datenquelle zugreifen.

Beispiel

In diesem Beispiel wird ein neuer PivotTable-Cache basierend auf einem OLAP-Anbieter und anschließend ein neuer PivotTable-Bericht erstellt, der auf dem Cache in Zelle A3 des aktiven Arbeitsblatts 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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.