VBA_Dictionary排序

VBA_Dictionary Sort ASC

Sub SortDicByKey(ByRef Dict As Object)

Dim tempDict As Object
Dim KeyVal As Variant
Dim arr() As Variant
Dim temp As Variant
Dim Txt As String
Dim i As Long
Dim j As Long

Dim jsonLine As Variant

ReDim arr(0 To Dict.Count - 1)
arr = Dict.keys()

'Array sort using sort method. 
For i = LBound(arr) To UBound(arr) - 1
    For j = i + 1 To UBound(arr)
        If arr(i) > arr(j) Then
            temp = arr(j)
            arr(j) = arr(i)
            arr(i) = temp
        End If
    Next j
Next i

'Creating temp dictionary instances
Set tempDict = CreateObject("Scripting.Dictionary")

For i = LBound(arr) To UBound(arr)
    KeyVal = arr(i)
    tempDict.Add Key:=KeyVal, Item:=Dict.Item(KeyVal)
Next i

Set Dict = tempDict

End Sub