TableObject-Objekt (Excel)
Stellt eine Arbeitsblatttabelle dar, die anhand von aus einem PowerPivot-Modell zurückgegebenen Daten erstellt wurde.
Beispiel
Im folgenden Beispielcode wird eine PowerPivot-Abfragetabelle durch Herstellen einer Verbindung mit einer Datenquelle erstellt.
Sub CreateTable()
Dim objWBConnection As WorkbookConnection
Dim objWorksheet As Worksheet
Dim objTable As TableObject 'This is the new Table object
Set objWorksheet = ActiveWorkbook.Worksheets("Sheet1")
'Create a WorkbookConnection to the external data source first.
Set objWBConnection = ActiveWorkbook.Connections.Add2( _
"Cubes3 AdventureWorksDW DimEmployee1", "", Array( _
"OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=AdventureWorksDW;Data Source=MyServer;Use " _
, _
"Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=MYWORKSTATION;Use Encryption for Data=False;Tag with co" _
, "lumn collation when possible=False"), Array( _
"""AdventureWorksDW"".""dbo"".""DimEmployee"""), 3, True)
'Create a new table connected to the model.
Set objTable = objWorksheet.ListObjects.Add(SourceType:=xlSrcModel, Source:=objWBConnection, Destination:=Range("$A$1")).TableObject
objTable.Refresh
End Sub
Methoden
Eigenschaften
- AdjustColumnWidth
- Anwendung
- Creator
- Ziel
- EnableEditing
- EnableRefresh
- FetchedRowOverflow
- ListObject
- Parent
- PreserveColumnInfo
- PreserveFormatting
- RefreshStyle
- ResultRange
- RowNumbers
- WorkbookConnection
Siehe auch
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.