使用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?