Метод 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 | Действие, выполняемое при открытии пула ресурсов или файла общего доступа. При открытии главного проекта значение этого аргумента также применяется к подпроектам. Может быть одной из следующих констант 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 и обратная связь.