如何将字典键的值直接赋给另一个变量？

Question

我有一个

Scripting.Dictionary

，我希望从中将第一个键的值（即

.Keys

数组中的第 0 个元素）分配给另一个变量。

如果不先将

Keys

数组的值分配给另一个变量，然后从该另一个变量访问该元素，我就无法执行此操作。

如何一步完成此操作？

Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

dict.Add Key:="a", Item:="A"
dict.Add Key:="b", Item:="B"
dict.Add Key:="c", Item:="C"
dict.Add Key:="d", Item:="D"

Dim tmp1
Dim tmp2 As String
tmp1 = dict.Keys
tmp2 = tmp1(0) 'This works


Dim tmp As String
tmp = dict.Keys(0) 'This does not work

Answer 1

在VBA“Scripting.Dictionary.keys”属性中重新调整数组，但您无法使用“dict.Keys(0)”直接访问该数组的元素，因为“keys”返回的是包含数组的变体，您需要显式引用该数组

调暗 tmp AS 字符串

tmp = dict.Keys()(0)