Translations:Пример доступа к данным из Excel/21/en — различия между версиями

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