我想做的很简单。我想在Dictionary中获取所有项(值)的列表,并将它们保存在字符串数组中。

我猜这段代码可以工作:

Sub PrintFilters(ByVal crit As Dictionary)
    Dim i() As String
    i = crit.Items()
    ' Do stuff with i
End Sub

但是,我在第三行上遇到类型不匹配的情况。我猜crit.Items()的返回值是某种列表,而不是数组。但是,MSDN页面没有提到此方法的返回值的类型是什么。

有适当的方法来做到这一点吗?

最佳答案

我认为是Variant类型,请尝试以下操作:

Sub PrintFilters(ByVal crit As Dictionary)
    Dim i As Variant
    i = crit.Items()
    ' Do stuff with i
End Sub

10-06 09:16