通过

Report.Delete 方法 (Project)

  • 项目

删除报表。

语法

表达式。删除

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

返回值

Nothing

示例

以下示例确定名为 Report 1 的报表是否存在，如果存在，则删除该报表。 如果报表处于活动状态，请在将其删除之前更改为另一个视图;否则，Project 将显示运行时错误 1004： 表“Report 1”正在使用中，无法复制或删除。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。