通过

Project.Open 事件 (Project)

  • 项目

该事件在打开项目时、但在 Activate 事件发生之前发生。

语法

表达式。打开 (pj)

表达 一个代表 Project 对象的变量。

参数

名称 必需/可选 数据类型 说明
pj 必需 Project 打开的项目。

返回值

Nothing

备注

当项目嵌入到另一个文档或应用程序中时，不会发生项目事件。

示例

此示例向用户的电子邮件别名和当前日期项目 备注 字段时，只要打开该项目。 此示例放在项目的 Open 事件中为文件提供一个简单的访问历史记录。

Private Sub Project_Open(ByVal pj As MSProject.Project) 
    Dim Alias As String 
 
    Alias = InputBox$("Please enter your email alias: ") 
    pj.ProjectSummaryTask.AppendNotes vbCrLf & "Opened by " & Alias & _
        " on " & Date$ & "." 
End Sub

支持和反馈

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