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物件的認識與應用
沒有留言:
張貼留言