通过

可用性对象 (Project)

  • 项目

包含 Availability 对象的集合。

示例

使用 Availabilities 集合

使用 竞争 (） ，位置索引索引可用性索引号，返回单个对象 的可用性 。 下面的示例返回指定资源的 资源可用性 网格第一行的可用性信息。

MsgBox ActiveProject.Resources("Tom").Name & " is available from " & _  
    ActiveProject.Resources("Tom").Availabilities(1).AvailableFrom & " to " & _  
    ActiveProject.Resources("Tom").Availabilities(1).AvailableTo & "."

使用 Availabilities 集合

使用 Availabilities 属性可以返回一个 Availabilities 集合。 以下示例显示指定资源可以进行工作的日期范围。

Dim Avail As Availability  

For Each Avail In ActiveProject.Resources("Tom").Availabilities  
    MsgBox "From " & Avail.AvailableFrom & " to " & Avail.AvailableTo  
Next Avail

Use the Add method to add an Availability object to the Availabilities collection. The following example adds a line to the Resource Availability grid showing that the specified resource is available only half-time during the month of April.

ActiveProject.Resources("Tom").Availabilities.Add "4/1/2012", "4/30/2012", 50

方法

名称
Add

属性

名称
Application
Count
项目
Parent

另请参阅

项目对象模型

支持和反馈

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