VBA：遍历关联数组（Dictionary）并打印Key和Value

我有一个VBA中的键和值的集合对象，我想遍历它们，并显示在debugging控制台。

这是我的代码：

' Generated error code array Dim errCodeArr As New Scripting.Dictionary Dim ItemKey As Variant Set rsErrCodes = dbQuery("select errorcode from tbl_errorcodes order by errorcode") On Error GoTo arrErr While Not rsErrCodes.EOF errCodeArr.Add rsErrCodes!errorCode, rsErrCodes!errorCode & "filler" rsErrCodes.MoveNext Wend For Each ItemKey In errCodeArr Debug.Print "Key: " & ItemKey Debug.Print "Value: " & errCodeArr.Item(ItemKey) Next arrErr: Debug.Print err.Description 

错误描述：这个键已经与这个集合的一个元素相关联

我改变了问题来反映这些变化，但现在我得到一个关键的错误。

Answer 1

据我所知，这是不可能与集合，但可能与字典：

 Dim errCodeArr As New Scripting.Dictionary Dim ItemKey As Variant Set rsErrCodes = dbQuery("select errorcode from tbl_errorcodes order by errorcode") On Error GoTo arrErr While Not rsErrCodes.EOF errCodeArr.Add CStr(rsErrCodes!errorCode), CStr(rsErrCodes!errorCode & "filler") rsErrCodes.MoveNext Wend For Each ItemKey In errCodeArr Debug.Print "Key: " & ItemKey Debug.Print "Value: " & errCodeArr.Item(ItemKey) Next 

你可以在这里阅读关于usnig Dictionary的Excel