Метод CubeFields.AddSet (Excel)

Статья
04/07/2023

Добавляет новый объект CubeField в коллекцию CubeFields . Объект CubeField соответствует набору, определенному в поставщике OLAP для куба.

Синтаксис

expression. AddSet (имя, подпись)

Выражение Переменная, представляющая объект CubeFields .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Допустимое имя в наборе строк схемы SETS.
Caption	Обязательный	String	Строка, представляющая поле, которое будет отображаться в представлении сводной таблицы.

Возвращаемое значение

CubeField

Замечания

Если набор с именем, указанным в аргументе Имя , не существует, метод AddSet вернет ошибку во время выполнения.

Пример

В этом примере Microsoft Excel добавляет набор с именем My Set в объект CubeField . В этом примере предполагается, что на активном листе существует отчет сводной таблицы OLAP и поле с названием Product.

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = Sheet1.PivotTables(1) 
 
 strAdd = "[MySet]" 
 strFormula = "'{[Product].[All Products].[Food].children}'" 
 
 ' Establish connection with data source if necessary. 
 If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection 
 
 ' Add a calculated member titled "[MySet]" 
 pvtOne.CalculatedMembers.Add Name:=strAdd, _ 
 Formula:=strFormula, Type:=xlCalculatedSet 
 
 ' Add a set to the CubeField object. 
 Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _ 
 Caption:="My Set") 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через