通过

Application.ActiveProject 属性 (Project)

  • 项目

获取表示活动项目的 项目 对象。 只读 项目 。

语法

expression。 ActiveProject

expression：表示 Application 对象的变量。

示例

下面的示例会向项目“属性”对话框中的“备注”字段添加日期和时间，然后保存项目。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。