VBA中的字典类型需要添加Microsoft Scripting Runtime引用,在Tools菜单下添加
Sub testDic() Dim strV As String Dim key As String key = "name" Dim value As String value = "关羽" Dim dic As Object Set dic = CreateObject("Scripting.Dictionary") ‘增 If dic.exists(key) = False Then dic.Add key, value End If Call read(dic) ‘删1 dic.Remove (key) Call read(dic) ‘删2:移除全部内容 ‘ dic.RemoveAll Call read(dic) End Sub Sub read(dic As Object) ‘遍历读取 For Each k In dic strV = dic.Item(k) Debug.Print strV Next End Sub
时间: 2024-11-01 18:53:59