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

If Response.StatusCode = WebStatusCode.Ok Then

       ' Success, parse response
       Dim RegValue As Object
       Set RegValues = Response.Data
       If Response.Content = "[]" Then
           Cells(4, 1) = "No data"
           Cells(4, 2) = "No data"
           Cells(4, 3) = "No data"
           Cells(4, 4) = "No data"
           Cells(4, 5) = "No data"
           Cells(4, 6) = "No data"
           Cells(4, 7) = "No data"
           Cells(4, 8) = "No data"
       Else
             For i = 1 To RegValues.Count
               Cells(i + 3, 1) = RegValues(i)("t")
               Cells(i + 3, 2) = Epoch2Date(CLng(RegValues(i)("t")))
               Cells(i + 3, 2).NumberFormat = "yyyy-mm-dd hh:mm:ss"
               Cells(i + 3, 3) = RegValues(i)("r")
               Cells(i + 3, 4) = RegValues(i)("v")
               Cells(i + 3, 5) = RegValues(i)("s")
             Next
       End If
   End If
   

End Sub </pre>