下面为你介绍Excel中的Dictionary的Exists方法。
Exists方法
如果Dictionary 对象中存在所指定的关键字则返回 true，否则返回 false。
object.Exists(key)
参数
object 必选项。总是一个 Dictionary 对象的名称。
key 必选项。需要在 Dictionary 对象中搜索的 key 值。
示例代码如下：
Dim d, msg$
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "dzwebs"
d.Add "b", "dz37w"
d.Add "c", "netcom"
If d.Exists("c") Then
msg = "指定的关键字已经存在。"
Else
msg = "指定的关键字不存在。"
End If
部分代码解释
1、Dim d, msg$ ：声明变量，d见前例；msg$ 声明为字符串数据类型(String)，一般写法为Dim msg As String。String 的类型声明字符为美元号 ($)。
2、If d.Exists("c") Then：如果字典中存在关键字”c”，那么执行下面的语句。
3、msg = "指定的关键字已经存在。" ：把"指定的关键字已经存在。"字符串赋给变量msg。
4、Else ：否则执行下面的语句。
5、msg = "指定的关键字不存在。" ：把"指定的关键字不存在。"字符串赋给变量msg。
6、End If ：结束If …Else…Endif判断。