在VBA中对对象集合进行排序

Question

我试图写一个函数来排序一个对象集合。由于对象都是相同的类型（相同的用户定义类），因此它们的属性集是相同的。是否有可能（通过代码）发现对象的属性，以便将集合放在一个二维数组中，每行代表一个对象，每列代表它的一个属性？

另一种解决方案是将集合中的每个对象复制到对象数组中，并根据它们的一个属性对它们进行排序，该属性的名称作为字符串传递给函数。但是我不知道如何使用作为字符串传递的属性名来指向对象的属性。

Answer 1

对于集合，最好按键进行排序（这就是它们的作用）--但如果您没有键列表（丢失了键！）：

'Give an input "Data As Collection"

    Dim vItm As Variant
    Dim i As Long, j As Long
    Dim vTemp As Variant

    For i = 1 To Data.Count – 1
        For j = i + 1 To Data.Count
            If CompareKeys(Data(i).myMemberKey, Data(j).myMemberKey) Then
                'store the lesser item
                vTemp = Data(j)

                'remove the lesser item
                Data.Remove j

                're-add the lesser item before the greater Item
                Data.Add vTemp, , i
            End If
        Next j
    Next i

使用您自己的CompareKey函数，如果UDT成员变量彼此为>、<或0，该函数将返回true或false。您必须删除和重新添加的原因是因为您不能“交换”VB6/VBA集合对象中的内部成员。

祝你好运

编辑：

 Result = CallByName(MyObject, "MyProperty", vbGet)