Translations:Пример доступа к данным из Excel/10/en
Материал из WebHMI Wiki
Версия от 11:47, 1 марта 2018; Evgeniy.mozoliak (обсуждение | вклад) (Новая страница: «If Response.StatusCode = WebStatusCode.Ok Then ' Success, parse response Dim RegValue As Object Set RegValues = Response.Data…»)
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>