Translations:Пример доступа к данным из Excel/21/en
Материал из WebHMI Wiki
Sub GetRegistersLog()
Dim Client As New WebClient Client.BaseUrl = "http://192.168.1.254/api" Client.TimeoutMs = 15000 Dim Request As New WebRequest Request.Resource = "register-log" Request.Method = WebMethod.HttpGet Request.RequestFormat = WebFormat.JSON Request.ResponseFormat = WebFormat.JSON Request.AddHeader "X-WH-START", Date2Unixtime(Now()) - 60 * 10 ' get data for last 10 minutes Request.AddHeader "X-WH-END", Date2Unixtime(Now()) ' Set your API Key here Request.AddHeader "X-WH-APIKEY", "EBB484265A64A547411FAC660AE3710CAA797976" ' Set register IDs here. Comma-separated value Request.AddHeader "X-WH-REG-IDS", "1,21" Dim Response As WebResponse Set Response = Client.Execute(Request) Cells.Range("A4:J5000").Clear