将 成员 添加到 Collection 对象。
语法
对象。在之前、之后添加项、键
“添加”方法语法包含以下对象限定符和命名参数：
| Part | 说明 |
|---|---|
| object | 必填。 一个 对象表达式 ，该表达式的计算结果为“ 应用于 ”列表中的对象。 |
| 项 | 必填。 指定要添加到集合的成员的任何类型的表达式。 |
| key | 可选。 指定可用于替代位置索引访问集合的成员的唯一字符串表达式。 |
| 之前 | 可选。 指定集合中的相对位置的表达式。 要添加的成员放置在集合中之前由 before参数标识的成员。 如果是 数值表达式， 则 before 必须是从 1 到集合的 Count 属性值的数字。 如果是字符串表达式，则之前 必须对应于引用的成员添加到集合时指定的键。 可指定之前 位置或之后 位置，但不可同时指定二者。 |
| 后 | 可选。 指定集合中的相对位置的表达式。 要添加到集合中的成员在由之后 参数识别之后放置在集合中。 如果为 numeric， 则 after 必须是从 1 到集合的 Count 属性值的数字。 如果是字符串，则之后 必须对应于引用的成员添加到集合时指定的键。 可指定之前 位置或之后 位置，但不可同时指定二者。 |
备注
不论之前或之后参数是字符串表达式还是数值表达式，都必须引用集合的现有成员，否则将发送错误。
指定键与集合现有成员的键重复时也将发生错误。
示例
本示例使用 Add 方法将字符串添加到具有键和不带 键的集合。 Item 方法隐式用于检索每个字符串。
Dim c As Collection
Set c = New Collection
c.Add "a"
c.Add "c", "CC"
c.Add "b", "BB", 2
c.Add "d"
Debug.Print c(1) ' --> prints "a"
Debug.Print c(2) ' --> prints "b"
Debug.Print c(3) ' --> prints "c"
Debug.Print c("BB") ' --> prints "b"
Debug.Print c("d") ' --> error (no key was specified for this element - a positional index must be used)
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。