使用HTTP POST从Excel数据发送到服务器 [英] Sending data from excel to Server using HTTP Post

问题描述

如何从Excel中使用HTTP POST数据发送到服务器？

让我们说的网址是：的http：// testingHttpPost /

和我想从单元格A2和B2发送数据。我将如何得到这个VBA做？

在此先感谢

解决方案

 子XMLPost（）
昏暗的XMLHTTP，SDATA作为字符串    随着ActiveSheet
        SDATA =×=与＆amp; URLen code（.Range（A2）值。）及_
                与＆amp; Y =与＆amp; URLen code（.Range（B2）。值）
    结束与    设置XMLHTTP =的CreateObject（microsoft.xmlhttp）    随着XMLHTTP
        。开POST，HTTP：// testingHttpPost /假
        .setrequestheader内容类型，应用程序/ x-WWW的形式urlen codeD
        SDATA。发送
        Debug.Print .responsetext
    结束与
结束小组
 

有关URLen code函数在这里看到：的如何URL连接在Excel VBA codeA字符串？

How can I send data to Server from excel using HTTP Post?

Lets say the URL is: http://testingHttpPost/

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?

这篇关于使用HTTP POST从Excel数据发送到服务器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！