Объект Projects (Project)
Содержит коллекцию объектов Project .
Пример
Использование объекта Project
Используйте Projects (Index), где Index — это номер индекса проекта или имя проекта, чтобы вернуть один объект Project . В следующем примере выполняется переключение между всеми открытыми проектами, запоминается полное имя каждого из них, а затем отображаются результаты.
Dim Temp As Long, Names As String
For Temp = 1 To Projects.Count
Projects(Temp).Activate
Names = Names & Projects(Temp).FullName & vbCrLf
Next Temp
MsgBox Names
Использование коллекции Projects
Используйте свойство Projects , чтобы вернуть коллекцию Projects . В следующем примере подсчитывается количество открытых проектов.
Application.Projects.Count
Так как коллекция Projects является объектом верхнего уровня, приведенный ниже пример функционально идентичен предыдущему.
Projects.Count
Используйте метод Add , чтобы добавить объект Project в коллекцию Projects . В следующем примере создается новый проект без запроса сведений о проекте.
Projects.Add False
Методы
| Имя |
|---|
| Add |
| CanCheckOut |
| CheckOut |
Свойства
| Имя |
|---|
| Application |
| Count |
| Item |
| Parent |
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.