Метод Application.ConsolidateProjects (Project)

Отображает данные из одного или нескольких проектов в одном окне.

Синтаксис

выражение. ConsolidateProjects( _Filenames_, _NewWindow_, _AttachToSources_, _PoolResources_, _HideSubtasks_, _openPool_, _UserID_, _Password_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Имена файлов	Необязательный	String	Одно или несколько имен файлов проектов для консолидации.
NewWindow	Необязательный	Логический	Значение True, если проекты вставляются (объединяются) в новый проект. False, если проекты вставляются в активный проект в точке выделения. Значение по умолчанию — False.
AttachToSources	Необязательный	Логический	Значение True , если изменения в объединенном проекте влияют на исходные проекты. Значение по умолчанию — True.
PoolResources	Необязательный	Variant	Аргумент PoolResources игнорируется в Project. Он сохраняется, чтобы существующие макросы, использующие этот аргумент, не вызывали ошибок.
HideSubtasks	Необязательный	Логический	Значение true , если подзадачи проектов, указанных в параметре Filenames, скрыты. Значение по умолчанию — True.
openPool	Необязательный	Long	Действие, выполняемое при открытии пула ресурсов или файла общего доступа. При открытии проекта master значение этого аргумента также применяется к подпроектам. Может быть одной из следующих констант PjPoolOpen . Значение по умолчанию — pjPromptPool.
UserID	Необязательный	Variant	Идентификатор пользователя, используемый при доступе к проекту в базе данных. Если filenames не ссылается на базу данных, userID игнорируется.
Password	Необязательный	String	Пароль, используемый при открытии защищенных паролем файлов проекта. Если пароль указан неправильно или опущен, а файлу требуется пароль, пользователю будет предложено ввести пароль.

Возвращаемое значение

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 и обратная связь.