How can I send data to Server from excel using HTTP Post?
Lets say the URL is: http://testingHttpPost/
开发者_JS百科And I want to send data from Cells A2 and B2. How would I get this done in VBA?
Thanks in advance
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
For URLencode function see here: How can I URL encode a string in Excel VBA?
精彩评论