将“可视报表”多维数据集保存到默认目录或指定的目录中。
语法
expression。 VisualReportsSaveCube( _strNamePath_, _PjVisualReportsCubeType_, _ReportAlLFields_, _PjVisualReportsDataLevel_ )
expression：表示 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| strNamePath | 可选 | String | 保存多维数据集文件 (.cub) 的位置的名称和完整路径。 |
| PjVisualReportsCubeType | 可选 | Long | 保存多维数据集类型。 可以是一个 PjVisualReportsCubeType consants。 默认值为 pjTaskTP 。 |
| ReportAlLFields | 可选 | Boolean | 如此 ，所有非自定义字段是否包含在报表中。 默认值为 False 。 |
| PjVisualReportsDataLevel | 可选 | Long | 保存数据级别。 可以是 PjVisualReportsDataLevel 常量之一。 默认值为 pjLevelAutomatic 。 |
返回值
Boolean
说明
PjVisualReportsDataLevel 参数指定时间分段的数据可访问的级别。 例如，如果 pjLevelMonths 指定 (月数)，则它不能访问 pjLevelDays (天)。
将 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。