VBA - API 调用显示在 Excel 中

Question

我在 excel 列中显示检索到的值时遇到问题。 我从 APIS 中检索了值。 因此，我想在使用 VBA 代码创建的 Excel 工作表中显示具有相同名称的多行。

可以请任何人帮助我吗？

下面附上 API 数据截图。

我检索了 API 值并将其显示在 msgbox 中。

这是代码

Private Sub CommandButton1_Click()

    Dim JsonObject As Object
    Dim objRequest As Object
    Dim strUrl As String
    Dim blnAsync As Boolean
    Dim strResponse As String
    
    Dim ws As Worksheet: Set ws = Worksheets("Sheet1")
    Set objRequest = CreateObject("MSXML2.XMLHTTP")
    strUrl = "https://dummyjson.com/carts"
     'strUrl = ws.[APIUrl]
    blnAsync = True
    With objRequest
        .Open "GET", strUrl, blnAsync
        .setRequestHeader "Content-Type", "application/json"
        '.setRequestHeader "Authorization", ws.[C7] & token
        .Send
        'Getting response from APIs
        While objRequest.readyState <> 4
            DoEvents
        Wend
        'API Response stored in var (strResponse)
        strResponse = .responseText
    End With
    MsgBox (strResponse)             'Response will display in Popup box
    'Range("P10").Value = strResponse 'Response will display in Sheet Column P10
    'Debug.Print strResponse          'Response will display in Immediate window(VBA)
End Sub