在VBA中访问JSON数组数据

Option Explicit

' JSON解析器模块
Private jsonParser As New JSONLib

' 解析JSON数组数据
Function ParseJSONArray(jsonArray As String) As Collection
    Dim parsedData As Collection
    Set parsedData = jsonParser.parse(jsonArray)
    Set ParseJSONArray = parsedData
End Function

Sub AccessJSONArrayData()
    Dim jsonArray As String
    Dim parsedData As Collection
    Dim item As Variant
    
    ' JSON数组数据
    jsonArray = "[1, 2, 3, 4, 5]"
    
    ' 解析JSON数组数据
    Set parsedData = ParseJSONArray(jsonArray)
    
    ' 遍历数组数据
    For Each item In parsedData
        Debug.Print item
    Next item
End Sub