Translations:Пример доступа к данным из Excel/10/en — различия между версиями
Материал из WebHMI Wiki
(Новая страница: «If Response.StatusCode = WebStatusCode.Ok Then ' Success, parse response Dim RegValue As Object Set RegValues = Response.Data…») |
|||
| Строка 1: | Строка 1: | ||
| − | If Response.StatusCode = WebStatusCode.Ok Then | + | If Response.StatusCode = WebStatusCode.Ok Then |
| − | + | ' Success, parse response | |
| − | + | Dim RegValue As Object | |
| − | + | Set RegValues = Response.Data | |
| − | i = | + | i = 3 |
For Each strKey In RegValues.Keys() ' rows | For Each strKey In RegValues.Keys() ' rows | ||
Cells(i, 1) = RegValues(strKey)("r") | Cells(i, 1) = RegValues(strKey)("r") | ||
| Строка 11: | Строка 11: | ||
i = i + 1 | i = i + 1 | ||
Next | Next | ||
| − | End If | + | Else |
| + | ' Error, show message | ||
| + | Cells(3, 1) = "Error" | ||
| + | Cells(3, 2) = Response.StatusCode | ||
| + | Cells(3, 3) = Response.Content | ||
| + | End If | ||
| + | |||
End Sub | End Sub | ||
</pre> | </pre> | ||
Текущая версия на 08:27, 12 апреля 2018
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>
