Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает или задает строку, содержащую одно из следующих значений:
- Параметры OLE DB, позволяющие Microsoft Excel подключаться к источнику данных OLE DB
- Параметры ODBC, позволяющие Excel подключаться к источнику данных ODBC
- URL-адрес, позволяющий Excel подключаться к источнику веб-данных.
- Путь к текстовому файлу и его имя
- Путь к файлу и его имя, указывающее базу данных или веб-запрос.
Для чтения и записи, Variant.
Синтаксис
expression. Связь
выражение Выражение, возвращающее объект PivotCache .
Замечания
При использовании автономного файла куба задайте для свойства UseLocalConnectionзначение True и используйте свойство LocalConnection вместо свойства Connection .
Кроме того, вы можете получить доступ к источнику данных напрямую с помощью библиотеки объектов данных Microsoft ActiveX (ADO).
Пример
В этом примере создается новый кэш сводной таблицы на основе поставщика OLAP, а затем создается новый отчет сводной таблицы на основе кэша в ячейке A3 на активном листе.
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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.