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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈