Добрый Вечер! Возник еще один вопрос( как скопировать данные которые я нашла по поиску на сайте, те результат поиска(
По тому что я нашла на просторах интернета не подходит, одна последняя строчка никак не идет.
По тому что я нашла на просторах интернета не подходит, одна последняя строчка никак не идет.
| Код |
|---|
Sub f()
Dim IE As Object
' On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://egrul.nalog.ru/index.html"
While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
With IE.Document
.GetElementsByName("query")(0).Value = Cells(0, 1).Value
.GetElementById("btnSearch").Click
Cells(0, 2).Value = IE.Document.getElementsByClassName("div.res-text")(0).innerText
'ЗДЕСЬ НИКАК НЕ ВЫХОДИТ НИЧЕГО((
End With
End Sub
|
Изменено: - 15.03.2019 10:48:16
