Question

我有一个名为flArr的数组，我将它转移到字典并测试来自另一个数组的元素（如果存在）然后我将它添加到列表框但我不知道，不知何故它不起作用我需要的对象＆＃34;错误。有什么想法？。

Set dic_cc = CreateObject("scripting.dictionary")
dic_cc = flArr 'transferring array to dictionary 

    For Each f In heArr 'another array heArr        
        If dic_cc.Exists(f) Then Me.FilterList.AddItem f    
    Next

由于

Answer 1

我不认为VBA中的数组是可枚举的。你需要循环遍历数组中的每个元素并检查字典，如下所示：

dim i as long

For i= 0 to to ubound(myArray)
 If dic_cc.Exists(myArray[i]) then
  me.FilterList.AddItem myArray[i]
 endif

next i

VBA词典是否存在？

1 个答案: