通过

Application.UpdateProject 方法 (Project)

  • 项目

更新进度信息并重新安排项目中任务的工作。

语法

expression。 UpdateProject( _All_, _UpdateDate_, _Action_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
全部 可选 Boolean 如此 如果更新活动项目中的所有任务。 假 如果只更新选定的任务。 默认值为 True 。
UpdateDate 可选 Variant 用于指定操作的更新日期。
action 可选 Integer 要对指定任务执行的操作。 可以是下列的 PjProjectUpdate 常量之一: pj0or100Percent 、 pj0to100Percent 或 pjReschedule 。 默认值为 pj0to100Percent 。

返回值

Boolean

说明

不带任何参数运行的 UpdateProject 方法将显示 更新项目对话框。

UpdateProject 方法对应于功能区的 项目选项卡上的 更新项目命令。

示例

下面的示例首先创建一个任务，将"完成百分比"域设置为 50%;然后更新项目计划余下的任务要在 2012 年 9/19 开始工作。

Sub Update_Project() 
    ViewApply Name:="Gantt Chart" 
 
    ' Create a new task 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-1" 
    SetTaskField Field:="Duration", Value:="2" 
    SetTaskField Field:="% Complete", Value:="50" 
 
    'Schedule the remainder of the work to start on the update date. 
    UpdateProject All:=False, UpdateDate:="9/19/2012", action:=pjReschedule 
End Sub

支持和反馈

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