Добрый вечер. Господа эксперты подскажите, как получить нужную строку с сайта после запроса в ячейку листа. К запросам к сайтам не очень ориентируюсь, попробовал приведенные по поиску коды, но увы, все они как-то открывают сайт повторно и это вызывает ошибку. Нужно после кода ниже, получить с полученной страницы отметку статуса. В данном случае "Ликвидировано (18.10.2016)".
Код |
---|
Sub Федресурс()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://www.fedresurs.ru/"
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
With IE.document
.getElementsByName("searchString")(0).Value = Range("a3")
.getElementsByTagName("button")(0).Click
End With
IE.Navigate "https://www.fedresurs.ru/search/entity?code=" & Range("a3") & ""
End Sub
|