(Новая страница: «If Response.StatusCode = WebStatusCode.Ok Then ' Success, parse response Dim RegValue As Object Set RegValues = Response.Data If R…»)
(нет различий)
Текущая версия на 11:04, 12 апреля 2018
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