Метод Application.VisualReportsSaveCube (Project)
Сохраняет куб визуальных отчетов в каталоге по умолчанию или в указанном каталоге.
Синтаксис
выражение. VisualReportsSaveCube
( _strNamePath_
, _PjVisualReportsCubeType_
, _ReportAlLFields_
, _PjVisualReportsDataLevel_
)
выражение: переменная, представляющая объект Application.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
strNamePath | Необязательный | String | Имя и полный путь к расположению, в которое нужно сохранить файл куба (CUB). |
PjVisualReportsCubeType | Необязательный | Long | Сохраните тип куба. Может быть одним из consants PjVisualReportsCubeType . По умолчанию используется pjTaskTP. |
ReportAlLFields | Необязательный | Логический | Если задано значение True, в отчет включаются все ненастроенные поля. Значение по умолчанию — False. |
PjVisualReportsDataLevel | Необязательный | Long | Сохранение уровня данных. Может быть одной из констант PjVisualReportsDataLevel . Значение по умолчанию — pjLevelAutomatic. |
Возвращаемое значение
Boolean
Примечания
Параметр PjVisualReportsDataLevel указывает уровень, до которого можно получить доступ к повременным данным. Например, если указан pjLevelMonths (месяцы ), доступ к pjLevelDays (days) невозможен.
Установка для параметра ReportAllFields значения True может снизить производительность.
Пример
Следующий код сохраняет куб.
Sub a()
Dim tf As Boolean
tf = Application.VisualReportsSaveCube("c:\cube.cub", pjTaskNTP, , pjLevelQuarters)
If tf = True Then
MsgBox ("Cube saved successfully")
Else
MsgBox ("Cube not saved successfully")
End If
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.