vba想要获取字典所有键放入数组，可以直接使用“字典名.Keys”将字典关键字直接赋值给数组，比如以下代码：

Sub CreateDictionary()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 添加键值对
    dict("key1") = "value1"
    dict("key2") = "value2"
    dict("key3") = "value3"
    
    arr = dict.Keys  '将字典的所有键放入数组
    MsgBox Join(arr， "，")    '用“，”串联数组所有元素查看结果
End Sub

得到的数组arr就是包含了字典dict的所有键【"key1"，深圳市立宇体育用品有限公司"key2"，"key3"】。

以上内容对您有帮助可以分享或转藏深圳市立宇体育用品有限公司，避免以后找不到。想要了解更多VBA相关知识，欢迎到http://moqingyan.360doc.com我的个人图书馆查看。