2012年4月17日 星期二

VBA Function return Dictionary

Set datas = myfunc
MsgBox TypeName(datas)

Sub Function myfunc()
    Dim D
    Set D = CreateObject("Scripting.Dictionary")
    D.Add "Name", "xxx"
    D.Add "Birthday", "1911/1/1"

    Set myfunc = D
End Function




Reference :
Using the Dictionary Class in VBA
vba: return dictionary from function
vba: return dictionary from function
Dictionary物件的認識與應用

沒有留言:

張貼留言