sql-server – 使用HTTP Post将数据从excel发送到服务器

可以说URL是：http://testingHttpPost/

我想从单元格A2和B2发送数据.我如何在VBA中完成此操作？

提前致谢

解决方法

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?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!