Translations:Пример доступа к данным из Excel/10/en

If Response.StatusCode = WebStatusCode.Ok Then

       ' Success, parse response
       Dim RegValue As Object
       Set RegValues = Response.Data
       
      i = 2
      For Each strKey In RegValues.Keys() ' rows
       Cells(i, 1) = RegValues(strKey)("r")
       Cells(i, 2) = RegValues(strKey)("v")
       Cells(i, 3) = RegValues(strKey)("s")
       i = i + 1
     Next
   End If    

End Sub </pre>