Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
           
    Dim myURL As String
    Dim postData As String, argstr As String
    Dim winHttpReq As Object
    Dim sh As Worksheet
    Dim msg As String
    Dim box As String
    Dim strResult As String
 
    For Each sh In Worksheets

    msg = sh.Range(Target.Address).Value
    box = Target.Address

        Debug.Print box & "--" & msg
     
    Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    myURL = "https://book-queue-bot.herokuapp.com/excel&msg=" + msg + "&box=" + box

    winHttpReq.Open "POST", myURL, False
    winHttpReq.setRequestHeader "Content-Type", "application/json"
    winHttpReq.Send
    strResult = winHttpReq.ResponseText
    
    
   
Next

End Sub