Необходимо заполнить форму на сайте и нажать кнопку «Отправить», чтобы получить результаты. Возникли проблемы с тем, чтобы мой код работал с использованием XMLHTTP60 в Excel VBA. Некоторые указатели высоко ценятся.
В настоящее время я могу получить то, что мне нужно, с помощью Internet Explorer в Excel VBA, но это медленно. Итак, я работаю над подходом 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