Share via

子项目对象 (Project)

  • 项目

包含 Subproject 对象的集合。

属性

名称
Application
Count
项目
Parent

示例

使用 Subprojects 集合对象

使用 子项目 (索引) ，其中 index 是子项目索引或项目摘要任务名称，以返回单个 Subproject 对象。 下面的示例防止将主项目中指定子项目的更改自动应用于源项目。

ActiveProject.Subprojects("Arcadia Bay Online Catalog Plan").LinkToSource = False

获取 Subprojects 集合对象

使用 Subprojects 属性可以返回一个 Subprojects 集合。 如果活动项目中的子项目不在硬盘上，以下示例将警告用户。

Dim SubProj As Subproject 

For Each SubProj in ActiveProject.Subprojects 

 If UCase(Left$(SubProj.Path, 1)) <> "C" Then 

 MsgBox Right$(SubProj.Path, InStrRev(SubProj.Path, "\") - 1) & _ 

 " is not on your local hard disk.", vbExclamation 

 End If 

Next SubProj

注意

如果将两个同名的子项目添加到项目中，则该项目将成为静态对象，并且不会提供有关添加到项目的任何其他子项目的信息。 这在项目文件的生命周期内会持续，即使删除了其中一个类似命名的子项目。

可以通过在项目中创建一个子项目的副本，将其放入另一个文件夹，然后再次将其添加到项目中来尝试此操作。 子项目不会报告新项目，也不会提供有关之后添加到该项目的任何子项目的信息。

另请参阅

支持和反馈

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