Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копировать данные с сайта с помощью VBA
 
Добрый Вечер! Возник еще один вопрос( как скопировать данные которые я нашла по поиску на сайте, те результат поиска(
По тому что я нашла на просторах интернета не подходит, одна последняя строчка никак не идет.
Код
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
Изменено: kleo90 - 15 Мар 2019 10:48:16
 
kleo90, все у вас правильно, только надо немного так:
Код
Cells(1, 1) = IE.Document.getElementsByClassName("res-text")(0).innerText
 
Спасибо! Для меня новый скил по работе с сайте через VBA)  
 
Цитата
kleo90 написал:
Cells(0, 1).Value
...
Cells(0, 2).Value
В листе Excel нет строки номер 0.
Страницы: 1
Читают тему (гостей: 1)
Наверх