{"fields":{"event_time":{"field":"event_time","source":"event_time=decade","aggr":"no","timezone":"Europe/Moscow"},"click":{"field":"click","source":"click","aggr":"count","type":"int"}},"filters":[{"source":"event_time","op":"BETWEEN","expr":"today,today 23:59:59"}]}

Dim oRequest As WinHttp.WinHttpRequest
Dim sResult As String

Set oRequest = New WinHttp.WinHttpRequest
With oRequest
    .Open "POST", sUrl, True
    .SetRequestHeader "Content-type", "application/json; charset=UTF-8"
    .Send sJSon
    .WaitForResponse
    sResult = .ResponseText
    MsgBox sResult
End With

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Columns.Count = 1 And Target.Row > 1 And Target.Column = 2 Then
Dim r As Integer
    Call ins(Target.Value, ActiveSheet.Cells(Target.Row, 1))
End If
End Sub
Public Sub crt_cn()
If cn Is Nothing Then
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\losinets-ds\Desktop\1.accdb"
End If
End Sub
Public Sub load()
Application.EnableEvents = False
ActiveSheet.Range("a2:b13000").ClearContents
Dim rs As ADODB.Recordset
Dim i As Integer
Call crt_cn
Set rs = New ADODB.Recordset
rs.Open _
    Source:="select id_row,dsc from tbl", _
    ActiveConnection:=cn, _
    CursorType:=adOpenDynamic, _
    LockType:=adLockReadOnly, _
    Options:=adCmdText
i = 1
While Not rs.EOF
    i = i + 1
    ThisWorkbook.Sheets("a").Cells(i, 1) = rs.Fields("id_row").Value
    ThisWorkbook.Sheets("a").Cells(i, 2) = rs.Fields("dsc").Value
    rs.MoveNext
Wend
Application.EnableEvents = True
End Sub
Public Sub cls_cn()
Application.EnableEvents = True
End Sub
Public Sub ins(str As String, r As Integer)
Application.EnableEvents = False
Call crt_cn
Set rs = New ADODB.Recordset
rs.Open _
    Source:="select id_row from tbl where id_row=" & r, _
    ActiveConnection:=cn, _
    CursorType:=adOpenDynamic, _
    LockType:=adLockReadOnly, _
    Options:=adCmdText
If str = "" Then
cn.Execute ("delete from tbl where id_row=" & r)
GoTo fin
End If
If Not rs.EOF Then
cn.Execute ("update tbl set dsc='" & str & "' where id_row=" & r)
GoTo fin
End If
cn.Execute ("insert into tbl(dsc) values('" & str & "')")
fin:
Application.EnableEvents = True
Call load
End Sub

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\losinets-ds\Desktop\1.accdb"
cn.Execute ("insert into tbl(dsc) select '" & str & "'")
cn.Close