工作分配对象 (Project)

包含任务或资源的 Assignment 对象的集合。

示例

使用 Assignment 对象

使用 Assignments (索引) 返回单个 Assignment 对象,其中 index 是工作分配索引号。 下面的示例显示分配给指定任务的第一资源的名称。

MsgBox ActiveProject.Tasks(1).Assignments(1).ResourceName

使用 Assignments 集合

使用 Assignments 属性可以返回一个 Assignments 集合。 以下示例显示分配给指定任务的全部资源。

Dim A As Assignment 

 

For Each A In ActiveProject.Tasks(1).Assignments 

 MsgBox A.ResourceName 

Next A

使用 Add 方法可以将 Assignment 对象添加到 Assignments 集合中。 以下示例将标识号为 212 的资源作为新的工作分配添加给指定任务。

ActiveProject.Tasks(1).Assignments.Add ResourceID:=212

方法

名称
AppendNotes
删除
EnterpriseTeamMember
重新编制
TimeScaleData

属性

名称
ActualCost
ActualFinish
ActualOvertimeCost
ActualOvertimeWork
ActualStart
ActualWork
ACWP
应用程序
Baseline10BudgetCost
Baseline10BudgetWork
Baseline10Cost
Baseline10Finish
Baseline10Start
Baseline10Work
Baseline1BudgetCost
Baseline1BudgetWork
Baseline1Cost
Baseline1Finish
Baseline1Start
Baseline1Work
Baseline2BudgetCost
Baseline2BudgetWork
Baseline2Cost
Baseline2Finish
Baseline2Start
Baseline2Work
Baseline3BudgetCost
Baseline3BudgetWork
Baseline3Cost
Baseline3Finish
Baseline3Start
Baseline3Work
Baseline4BudgetCost
Baseline4BudgetWork
Baseline4Cost
Baseline4Finish
Baseline4Start
Baseline4Work
Baseline5BudgetCost
Baseline5BudgetWork
Baseline5Cost
Baseline5Finish
Baseline5Start
Baseline5Work
Baseline6BudgetCost
Baseline6BudgetWork
Baseline6Cost
Baseline6Finish
Baseline6Start
Baseline6Work
Baseline7BudgetCost
Baseline7BudgetWork
Baseline7Cost
Baseline7Finish
Baseline7Start
Baseline7Work
Baseline8BudgetCost
Baseline8BudgetWork
Baseline8Cost
Baseline8Finish
Baseline8Start
Baseline8Work
Baseline9BudgetCost
Baseline9BudgetWork
Baseline9Cost
Baseline9Finish
Baseline9Start
Baseline9Work
BaselineBudgetCost
BaselineBudgetWork
BaselineCost
BaselineFinish
BaselineStart
BaselineWork
BCWP
BCWS
BookingType
BudgetCost
BudgetWork
确认
成本
Cost1
Cost10
Cost2
Cost3
Cost4
Cost5
Cost6
Cost7
Cost8
Cost9
CostRateTable
CostVariance
已创建
CV
Date1
Date10
Date2
Date3
Date4
Date5
Date6
Date7
Date8
Date9
延迟
Duration1
Duration10
Duration2
Duration3
Duration4
Duration5
Duration6
Duration7
Duration8
Duration9
Finish
Finish1
Finish10
Finish2
Finish3
Finish4
Finish5
Finish6
Finish7
Finish8
Finish9
FinishVariance
FixedMaterialAssignment
Flag1
Flag10
Flag11
Flag12
Flag13
Flag14
Flag15
Flag16
Flag17
Flag18
Flag19
Flag2
Flag20
Flag3
Flag4
Flag5
Flag6
Flag7
Flag8
Flag9
Guid
Hyperlink
HyperlinkAddress
HyperlinkHREF
HyperlinkScreenTip
HyperlinkSubAddress
索引
LevelingDelay
LinkedFields
备注
Number1
Number10
Number11
Number12
Number13
Number14
Number15
Number16
Number17
Number18
Number19
Number2
Number20
Number3
Number4
Number5
Number6
Number7
Number8
Number9
过度分配
OvertimeCost
OvertimeWork
Owner
Parent
高峰
PercentWorkComplete
项目
RegularWork
RemainingCost
RemainingOvertimeCost
RemainingOvertimeWork
RemainingWork
资源
ResourceGuid
ResourceID
ResourceName
ResourceRequestType
ResourceType
ResourceUniqueID
ResponsePending
Start
Start1
Start10
Start2
Start3
Start4
Start5
Start6
Start7
Start8
Start9
StartVariance
摘要
SV
任务
TaskGuid
TaskID
TaskName
TaskOutlineNumber
TaskSummaryName
TaskUniqueID
TeamStatusPending
Text1
Text10
Text11
Text12
Text13
Text14
Text15
Text16
Text17
Text18
Text19
Text2
Text20
Text21
Text22
Text23
Text24
Text25
Text26
Text27
Text28
Text29
Text3
Text30
Text4
Text5
Text6
Text7
Text8
Text9
UniqueID
"单位"
UpdateNeeded
VAC
WBS
工作
WorkContour
WorkVariance
符合标准

另请参阅

项目对象模型

支持和反馈

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