通过

Application.ActiveProject Property

  • 项目
Project Developer Reference

Returns a Project object that represents the active project. Read-only Object.

Syntax

expression.ActiveProject

expression   A variable that represents an Application object.

Return Value
Project

Example

The following example adds the date and time to the Comments field in the Project Properties dialog box and then saves the project

Visual Basic for Applications 
  Sub SaveAndNoteTime()
    ActiveProject.ProjectNotes = ActiveProject.ProjectNotes & vbCrLf & "This project was last saved on " _
        & Date$ & " at " & Time$ & "."
    FileSave
End Sub

See Also