project) (Report.Name 属性
获取或设置报表的名称。 读/写 String。
语法
表达式。名字
表达 一个代表“Report”对象的变量。
示例
以下示例列出了项目中每个自定义报表的索引和名称。
Sub ListCustomReports()
Dim oReport As Report
Dim msg As String
Dim msgBoxTitle As String
msg = ""
msgBoxTitle = "Custom reports in '" & ActiveProject.Name & "'"
For Each oReport In ActiveProject.Reports
msg = msg & oReport.Index & oReport.Name & vbCrLf
Next oReport
If ActiveProject.Reports.Count > 0 Then
MsgBox Prompt:=msg, Title:=msgBoxTitle
Else
MsgBox Prompt:="This project contains no custom reports.", _
Title:=msgBoxTitle
End If
End Sub
属性值
STRING
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。