excel - 使用 Excel VBA 代码发送 POST 并检索数据

Question

什么 VBA 代码允许我发送 POST 请求(在 asp 搜索框中)，然后在 <span id="xxx"></span> 之间检索数据标签？ (在结果页面中)

我有以下代码模拟页面中的搜索请求:

 Dim Site As Object
 Set Site = CreateObject("InternetExplorer.application")
 Dim QNUMBER As String
 Dim URL As String

 URL = "apps/inventory/Default.aspx" 'local website
 QNUMBER = textBox_Scan.Text
 Site.navigate URL
 While Site.busy
 Wend
 Dim oHTMLDoc As Object
 Set oHTMLDoc = Site.document

 oHTMLDoc.getElementById("input_search").Value = QNUMBER
 oHTMLDoc.getElementById("btn_search").Click

这样做感觉不“干净”，我觉得发送 POST 请求会更合适。

谢谢。

[编辑]

这是表格代码

 <form name="aspnetForm" method="post" action="Default.aspx" id="aspnetForm">

输入文本 id

id="input_search" 

提交按钮代码

id="btn_search"

我想从 <span id="warranty">36 month</span> 获取数据和 <span id="budget">500$</span>

Answer 1

Sub macroPOST()
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "[Your URL]"
    objHTTP.Open "POST", URL, False
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.Send ("id=dddaaa&pwd=1234[Your request parameters]")

    replyTXT = objHTTP.responseText

    If objHTTP.Status = "200" Then 'success
        MsgBox replyTXT
    Else
        'Do something
    End If
End Sub

它适用于我的 Excel，感谢您仔细阅读。