Добрый вечер. Господа эксперты подскажите, как получить нужную строку с сайта после запроса в ячейку листа. К запросам к сайтам не очень ориентируюсь, попробовал приведенные по поиску коды, но увы, все они как-то открывают сайт повторно и это вызывает ошибку. Нужно после кода ниже, получить с полученной страницы отметку статуса. В данном случае "Ликвидировано (18.10.2016)".
Код |
---|
1 2 3 4 5 6 7 8 9 10 11 12 | Sub Федресурс()
Dim IE As Object
Set IE = CreateObject( "InternetExplorer.Application" )
IE.Visible = True
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
With IE.document
.getElementsByName( "searchString" )(0).Value = Range( "a3" )
.getElementsByTagName( "button" )(0).Click
End With
End Sub
|
|