通过

Resources 对象 (Project)

  • 项目

包含 Resource 对象的集合。

示例

使用 Resources 集合

使用 Resources (索引) （其中 index 是资源索引号或资源名称）返回单个 Resource 对象。 下面的示例将列出活动项目中所有资源的名称。

Dim R As Long, Names As String 

 

For R = 1 To ActiveProject.Resources.Count 

 Names = ActiveProject.Resources(R).Name & ", " & Names 

Next R 

 

Names = Left$(Names, Len(Names) - Len(ListSeparator & " ")) 

MsgBox Names

使用 Resources 集合

使用 资源 属性可返回的 资源 集合。 下面的示例生成与前面的示例中，相同的列表，但这是通过设置 ActiveProject.Resources ，一个对象引用，然后使用 R使用 ActiveProject.Resources的位置。

Dim R As Resources, Temp As Long, Names As String 

 

Set R = ActiveProject.Resources 

 

For Temp = 1 To R.Count 

 Names = R(Temp).Name & ", " & Names 

Next Temp 

 

Names = Left$(Names, Len(Names) - Len(ListSeparator & " ")) 

MsgBox Names

使用 Add 方法添加到 资源 集合 资源 对象。 下面的示例添加新的资源命名 Matilda 于活动项目。

ActiveProject.Resources.Add "Matilda"

方法

名称
Add

属性

名称
Application
Count
项目
Parent
UniqueID

另请参阅

项目对象模型

支持和反馈

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