通过

Resource.Availabilities 属性 (Project)

返回 竞争 集合，该集合代表所有可用期间，在 资源可用性网格中该资源的定义。 只读的 竞争 。

语法

expression。 Availabilities

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

备注

竞争 属性不返回任何有意义的信息，对于材料资源。 设置的值返回一个可捕获的错误 (错误代码为 1101年) 应用于材料资源时。

示例

以下示例显示指定资源可以进行工作的日期范围。

Sub ShowWorkAvail()
  Dim Avail As Availability
  For Each Avail In ActiveProject.Resources("Tom").Availabilities
    MsgBox "From " & Avail.AvailableFrom & " to " & Avail.AvailableTo
  Next Avail
End Sub

支持和反馈

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