Web-запрос и получение результата

Пользователь

Сообщений: 33 Регистрация: 10.12.2014

01.03.2018 15:19:50

Здравствуйте, уважаемые форумчане

Помогите пожалуйста с вопросом, нужно создать запрос к сайту https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp в поле поиска брать значения из столбца "А" , осуществить поиск и полученный результат вставить в соответствующую ячейку в столбце "B". Пытался сам что-то составить, пока получилось только вбить первое значение и имитировать клик. Спасибо.

Код

Sub getdatastuff()
Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp"
    ie.Visible = True
    While ie.Busy
        DoEvents
    Wend

    ie.Document.all("name").Value = Cells(1, 1).Value
    ie.Document.all("submit").Click

End Sub

Прикрепленные файлы

test.xlsm (18.14 КБ)

Jungl

Пользователь

Сообщений: 830 Регистрация: 18.01.2016

01.03.2018 19:29:28

oggis,

Код

    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    URL = "https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp?name=" & Range("A1") & "&submit=++Yoxla+++"
    ie.navigate URL
    ie.Visible = True
    While ie.Busy
        DoEvents
    Wend
    Set sp = ie.document.getElementsByTagName("span").Item(0)
    Range("B1") = sp.innerText

oggis Пользователь Сообщений: 33 Регистрация: 10.12.2014	#3 01.03.2018 19:44:41 Jungl, спасибо большое!