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

   If Response.StatusCode = WebStatusCode.Ok Then
      ' Success, parse response
      Dim RegValue As Object
      Set RegValues = Response.Data
       
      i = 3
      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
   Else
     ' Error, show message
     Cells(3, 1) = "Error"
     Cells(3, 2) = Response.StatusCode
     Cells(3, 3) = Response.Content
   End If
   

End Sub </pre>