无法在VBA中迭代Hashtable(Excel)

Question

我正在使用Hashtable(引用了mscorlib.dll).我用数据填充它,我可以得到任何项目(只要我将请求类型转换为与哈希表中存储的完全相同的类型),.CONTinsValue/Key - 一切正常.但我不能通过For Each循环遍历它.我已经尝试了我可以在互联网上找到的所有方法(对于每个元素......,其中元素是DictionaryEntry,通过GetEnumerator),但没有一个工作 - 我可以通过枚举器滚动表,但我无法到达密钥也没有迭代器定位的值.我究竟做错了什么？我通过设置数字键并迭代这些数字暂时解决了它,但它不起作用,因为最后会有两次相同的数字......

PS:我不能使用Dictionary而不是Hashtable,因为我需要ContainsKey和ContainsValue,并且能够通过键或值检索项目.

编辑:我当前的代码(我正在寻找的是替换"For i"循环,所以我不需要键是我已经知道的数字)

For i = 1 To UBound(rands)
        chopped_yes = Split(ThisWorkbook.Worksheets(1).Range("Z" & rands(i)))
        chopped_no = Split(ThisWorkbook.Worksheets(1).Range("AA" & rands(i)))
        chopped_any = Split(ThisWorkbook.Worksheets(1).Range("AB" & rands(i)))
        For Each part In chopped_yes
            If rules_yes.ContainsValue(cscs.item(CLng(rands(i)))) Then
                validcsc = 0
                GoTo WriteIt
            End If
        Next part
        For Each part In chopped_no
            If rules_no.ContainsValue(cscs.item(CLng(rands(i)))) Then
                validcsc = 0
                GoTo WriteIt
            End If
        Next part
        For Each part In chopped_any
        pepa = cscs.item(CLng(rands(i)))
        chopped_pepa = Split(pepa, "=")
            If rules_any.ContainsValue(CStr(chopped_pepa(0))) Then
                validcsc = 0
                GoTo WriteIt
            End If
        Next part
    Next i

代码的作用:

---

cscs散列表包含关键字/ option_value对,某些关键字与其他关键字冲突,hashtables rules_any/yes/no包含冲突的关键字,如果选中的是关键字= YES/NO/SOMETHING并将validcsc设置为0(也称为无效的关键字组合).

---

rands是唯一数字的数组 - 麻烦的是如果有多个冲突关键字,那么我没有任何数字可以设置为密钥,我稍后会知道并使用它来迭代

Answer 1

实际上有一种方法可以从VBA浏览.NET哈希表:

Dim hash As mscorlib.Hashtable
Set hash = New mscorlib.Hashtable

Call hash.Add("foo", "bar")
Call hash.Add(4, 8)

Dim keys As IEnumerable
Set keys = hash.keys

Dim key As Variant
For Each key In keys

    Dim value As Variant

    value = hash.Item(key)
Next

主要问题是在"for each"循环中使用它之前,将属性"Keys"的返回值"转换"为IEnumerable .VBA无法从头开始处理多个接口继承:在调用它之前,必须转换为函数/属性所属的接口.