excel vba dictionary

key, value로 값을 뽑고 저장할 수 있는 Dictionary Object 를 만들 수 있다.

dictionary에는 또 다른 dictionary를 넣을 수 있다.

Sub dictionaryTest()

    Dim dict_list As Object

    Set dict_list = CreateObject("Scripting.Dictionary")

    

    dict_list.Add "Apples", getItem

    

    Debug.Print dict_list("Apples")("apple")

    

    

    

End Sub

Function getItem()

Dim dict_item As Object

    Set dict_item = CreateObject("Scripting.Dictionary")

    dict_item.Add "apple", 1

Set getItem = dict_item

End Function