Translations:Пример доступа к данным из Excel/9/en
Материал из WebHMI Wiki
Версия от 11:47, 1 марта 2018; Evgeniy.mozoliak (обсуждение | вклад) (Новая страница: «<pre> Sub GetRegisters() Dim Client As New WebClient Client.BaseUrl = "http://192.168.1.1/api" Dim Request As New WebRequest Request.Reso…»)
Sub GetRegisters() Dim Client As New WebClient Client.BaseUrl = "http://192.168.1.1/api" Dim Request As New WebRequest Request.Resource = "register-values" Request.Method = WebMethod.HttpGet Request.RequestFormat = WebFormat.JSON Request.ResponseFormat = WebFormat.JSON Request.AddHeader "X-WH-APIKEY", "8DA00F5F9B42A8D070651C58F495DB1C3191AF19" Dim Response As WebResponse Set Response = Client.Execute(Request) Cells.Range("A2:C1000").Clear