Question

需要在网站上填写表格，然后单击提交按钮以获取结果。无法在Excel VBA中使用XMLHTTP60使我的代码正常工作。一些指针非常感谢。

我目前可以使用'我不想要在Excel VBA中使用Internet Explorer来获取所需信息，但是它很慢。因此，我正在研究XMLHTTP60方法，以加快速度。但是，我无法弄清楚为什么它不起作用。我一直在尝试POST命令，但是没有运气。据我所知，标题请求不是一个可行的选择，我需要找到一种方法将正确的文本发送到正确的框，然后执行表格。

这是页面来源（需要填写案例编号，然后执行单击按钮）：

https://courtrecords.seminoleclerk.org/civil/

到目前为止，这是我在Excel VBA中的代码：

Option Explicit

Sub SearchCivilCasesXML()

    Dim URL As String
    Dim XMLPage As MSXML2.XMLHTTP60
    Dim HTMLDoc As MSHTML.HTMLDocument

    Set XMLPage = New MSXML2.XMLHTTP60
    Set HTMLDoc = New MSHTML.HTMLDocument


    'Define the website and get info into HTMLDoc
    URL = "https://courtrecords.seminoleclerk.org/civil/"

    XMLPage.Open "POST", URL, False
    XMLPage.send ("ctl00$MainContent$caseNumberTxt=16CA1015")
    HTMLDoc.body.innerHTML = XMLPage.responseText

End Sub

填写在线表单，然后使用Excel-VBA XMLHTTP60

0 个答案: