Application.ConsolidateProjects 方法 (Project)

在单个窗口中显示一个或多个项目中的数据。

语法

expression。 ConsolidateProjects( _Filenames_, _NewWindow_, _AttachToSources_, _PoolResources_, _HideSubtasks_, _openPool_, _UserID_, _Password_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Filenames	可选	String	要合并的项目的一个或多个文件名。
NewWindow	可选	Boolean	如此 如果项目插入 (合并) 到一个新的项目。 假 如果项目插入到活动项目中选取点。 默认值为 False 。
AttachToSources	可选	Boolean	如此 如果合并项目中的更改影响到源代码管理的项目。 默认值为 True 。
PoolResources	可选	Variant	Project 中忽略 PoolResources 参数。 保留该参数，以便使用此参数的现有宏不会导致错误。
HideSubtasks	可选	Boolean	如此 如果用文件名指定的项目的子任务处于隐藏状态。 默认值为 True 。
openPool	可选	Long	在打开资源库或共享文件时执行的操作。 当打开主项目时，该参数的值也应用于子项目。 可以是下列的 PjPoolOpen 常量之一。 默认值是 pjPromptPool 。
UserID	可选	Variant	要访问数据库中的项目时使用的用户 ID。 如果文件名不引用到数据库中， 用户 Id 将被忽略。
Password	可选	String	在打开受密码保护的项目文件时要使用的密码。 如果 Password 不正确或被省略，而文件又要求提供密码，用户会收到有关输入密码的提示。

返回值

Boolean

说明

若要指定应以只读的形式插入合并项目，请将“ (R/O) ”追加到 Filenames 参数中的文件名。

示例

以下示例将创建一个合并项目，再打印一个报表，然后在不保存的情况下关闭该合并项目。

Sub ConsolidatedReport() 
    ConsolidateProjects Filenames:="Project1.mpp" & ListSeparator & "Project2.mpp", NewWindow:=True 
    ReportPrint Name:="Critical Tasks" 
    FileClose Save:=pjDoNotSave 
End Sub

支持和反馈

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