使用HTTP從Excel發送數據到服務器Post

Question

如何使用HTTP Post從Excel發送數據到服務器？

讓我們說的網址是：http://testingHttpPost/

我想從單元格A2和B2發送數據。我如何在VBA中完成這項工作？

在此先感謝

Answer 1

Sub XMLPost() 
Dim xmlhttp, sData As String 

    With ActiveSheet 
     sData = "x=" & URLencode(.Range("A2").Value) & _ 
       "&y=" & URLencode(.Range("B2").Value) 
    End With 

    Set xmlhttp = CreateObject("microsoft.xmlhttp") 

    With xmlhttp 
     .Open "POST", " http://testingHttpPost/", False 
     .setrequestheader "Content-Type", "application/x-www-form-urlencoded" 
     .send sData 
     Debug.Print .responsetext 
    End With 
End Sub 

對於URLEncode的功能在這裏看到：How can I URL encode a string in Excel VBA?