通过

Reports.Add 方法 (Project)

  • 项目

将自定义报表添加到 Reports 集合。

语法

表达式。添加 (名称)

表达 一个代表“Reports”对象的变量。

参数

名称 必需/可选 数据类型 说明
Name 必需 String 报表的名称。
Name 必需 String

返回值

报告

添加的自定义报表对象。

备注

新报表为空;它不包含任何形状，例如表格或图表。 若要向报表添加形状，可以使用 Shapes 对象中的方法，例如 AddChart 和 AddTable。

示例

以下示例添加名为 “报表 1”的空报表，并显示该报表。

Sub AddReport()
    ActiveProject.Reports.Add "Report 1"
End Sub

若要删除报表，必须更改为其他视图，如以下示例所示：

Sub DeleteAReport()
    Dim reportName As String
    
    reportName = "Report 1"
    
    If ActiveProject.Reports.IsPresent(reportName) Then
        ' To delete the active report, change to another view.
        ViewApplyEx Name:="&Gantt Chart"
        
        ActiveProject.Reports(reportName).Delete
    Else
        MsgBox Prompt:="No report name: " & reportName, Title:="Report delete error"
    End If
End Sub

另请参阅

报表对象报表对象形状

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。