通过

Projects Collection Object

  • 项目
Project Developer Reference

Contains a collection of Project objects.

Example

Using the Project Object

Use Projects(Index), where Index is the project index number or project name, to return a single Project object. The following example switches among all the open projects, memorizes the full name of each, and then displays the results.

Visual Basic for Applications 
  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

Using the Projects Collection

Use the Projects property to return a Projects collection. The following example counts the number of open projects.

Visual Basic for Applications 
  Application.Projects.Count

Because the Projects collection is a top-level object, the following example is functionally identical to the preceding one.

Visual Basic for Applications 
  Projects.Count

Use the Add method to add a Project object to the Projects collection. The following example creates a new project without prompting for project information.

Visual Basic for Applications 
  Projects.Add False

See Also