24 lines
664 B
Plaintext
24 lines
664 B
Plaintext
Sub Main_With_Dictionary()
|
|
Dim Base As Object, Update As Object, Merged As Object, K As Variant
|
|
'INIT VARIABLE
|
|
Set Base = CreateObject("Scripting.Dictionary")
|
|
Set Update = CreateObject("Scripting.Dictionary")
|
|
Set Merged = Base
|
|
'FILL Base & Update
|
|
Base.Add "name", "Rocket Skates"
|
|
Base.Add "price", 12.75
|
|
Base.Add "color", "yellow"
|
|
Update.Add "price", 15.25
|
|
Update.Add "color", "red"
|
|
Update.Add "year", 1974
|
|
'Fill Merge
|
|
For Each K In Update.Keys
|
|
Merged(K) = Update(K)
|
|
Next
|
|
'Print Out
|
|
Debug.Print "Key", "Value"
|
|
For Each K In Merged.Keys
|
|
Debug.Print K, Merged(K)
|
|
Next K
|
|
End Sub
|