小编Exc*_*bie的帖子

我所做的是将字典放入Sub Routine中的数组中

这就是定义

Dim Arr() As Variant
ReDim Arr(0 To Dict.Count - 1)
For c= 0 To Dict.Count - 1 
   Arr(c) = Dict.Keys(c) ' <~~~~~~ Error here
Next c 

编译说

运行时错误451:属性let过程未定义,属性get过程未返回对象.

它非常适合

Public Sub SubRoutine(Dict As Scripting.Dictionary) 

但没有

Public Sub SubRoutine(Dict As Object) –

请参阅声明没有Microsoft Scripting Runtime的字典