文档介绍：EXCELVBA帮助手册
第41页
Excel2003VBA
帮助文档
第3页
目录
一些对象的应用方法 6
Add 方法 7
Add方法(Dictionary) 8
Add 方方法、⑺Write 方法、⑻WriteBlankLines 方法、⑼WriteLine 方法
第7页
Add 方法
添加一个成员到 Collection 对象。
语法
item, key, before, after
Add 方法的语法具有下列对象限定符和命名参数：
部分
描述
object
必需的。对象表达式，其值为“应用于”列表中的对象。
item
必需的。任意类型的表达式，指定要添加到集合中的成员。
key
可选的。唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员。
before
可选的。表达式，指定集合中的相对位置。在集合中将添加的成员放置在 before 参数识别的成员之前。如果为一数值表达式，则 before 必须是介于 1 和集合 Count 属性值之间的值。如果为一字符串表达式，则当添加一个被引用的成员到集合时，before 必须对应于指定的 key 值。可以指定 before 位置或 after 位置，但不能同时指定这两个位置。
after
可选。表达式，指定集合中的相对位置。在集合中将添加的成员放置在 After 参数识别的成员之后。如果为一数值表达式，则 after 必须是介于 1 和集合 Count 属性值之间的值；如果为一字符串表达式，则当添加一个被引用的成员到集合时，after 必须对应于指定的 key 值。可以指定 before 位置或 after 位置，但不能同时指定这两个位置。
说明
before 或 after 参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。
如果指定的 key 和集合中现有成员的 key 发生重复，则也会导致错误发生。
1、应用于Collection 对象
2、请参阅Item方法、Remove方法
Add 方法示例
本示例使用 Add 方法将 Inst 对象（类 Class1 之示例，其中包含 Public 变量 InstanceName ）加到 MyClasses 集合对象中。若要观察程序的运作，插入一个类模块，并在 Class1 的模块级中声明公用变量 InstanceName（键入 Public InstanceName）来保存每个示例的名称。类名就用缺省的 Class1。将下列代码复制与粘贴到某个窗体模块的 Form_Load 事件过程中。
Dim MyClasses As New Collection ' 建立集合对象。
Dim Num As Integer ' 定义计数变量。
Dim Msg
Dim TheName ' 用来保存用户指定的名称的变量。
Do
第8页
Dim Inst As New Class1 ' 建立 Class1 的新示例。
Num = Num + 1 ' 将计数变量加一，并让用户输入名称。
Msg = "Please enter a name for this object." & Chr(13) _
& "Press Cancel to see names in collection."
TheName = InputBox(Msg, "Name the Collection Items")
= TheName ' 将输入的名称存到对象的示例中。
' 如果名称不是空字符串，则将该示例加到集合对象中。
If <> "" Then
' 将该示例加到集合对象中。
item := Inst, key := CStr(Num)
End If
' 清除对当前示例的引用，以准备下一个。
Set Inst = Nothing
Loop Until TheName = ""
For Each x In MyClasses
MsgBox , , "Instance Name"
Next
Add方法(Dictionary)
描述
添加一对相对应的关键字和条目到 Dictionary 对象。
语法