Парсинг данных в ексель: ошибка Run-time error 424 Object required

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

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

17.03.2017 00:36:24

Приветствую!
Только начинаю свое знакомство с VBA и на практике возникает куча вопросов.
Первый макрос - парсинг данных в ексель.
И выдает ошибку в самом конце, когда уже нашел значение и пытаюсь его вставить.

Код
Dim Followers As String Followers = ie.Document.getElementById("followers-count").InnerText <--- ругается здесь Sheets("HW1").Cells(2, 2).Value = Followers

Гугл подсказывает, что все дело в определении типа. Если пишу Set, то тип должен быть Object, если нет то можно String. Но как не пытался комбинировать, ничего не выходит.
Помогите, пожалуйста, на финише дописать уже и понять что и как) Заранее благодарю!

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

Excel VBA.xlsm (17.27 КБ)

Игорь

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

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

17.03.2017 02:54:32

Так будет работать:

Код

Public Sub Подписчики()
    Dim search_input As String, my_url As String, ie As Object, Followers As String
    search_input = Sheets("HW1").Cells(1, 2) 'ставим тикер, который будем искать

    'делаем запрос
    Set ie = CreateObject("InternetExplorer.Application")
    my_url = "http://seekingalpha.com/symbol/" & search_input & "?s=" & search_input
    With ie
        .Visible = False
        .Navigate my_url
    End With
    Do Until Not ie.Busy And ie.readyState = 4
        DoEvents
    Loop

    ' вставляем значение
    Followers = ie.Document.getElementById("followers-count").InnerText
    Sheets("HW1").Cells(2, 2).Value = Followers

    'выходим из IE
    ie.Quit
    Set ie = Nothing
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

lavandos Пользователь Сообщений: 10 Регистрация: 08.02.2017	#3 17.03.2017 10:17:04 Работает, огромное спасибо! Получается дело было не в типах, а в корректном задании ссылки на запрос? Могли бы Вы пояснить как задавали my_url? Почему не на главную страницу? И для чего & search_input & "?s=" & search_input?

Дмитрий Тарковский Пользователь Сообщений: 204 Регистрация: 08.01.2013	#4 17.03.2017 16:02:40 вручную введите на сайте нужный запрос и посмотрите в адресную строку

lavandos Пользователь Сообщений: 10 Регистрация: 08.02.2017	#5 18.03.2017 11:55:31 Аа, понял) Так быстрее получается, не надо писать код для нажатия кнопки. Здорово! Спасибо)

Читают тему