Страницы: 1
RSS
Скопировать все ссылки с сайта VBA
 
Добрый день!

Я не работала с сайтами, сейчас надо выгрузить все ссылки с сайта. Они содержаться в атрибуте href
Все что у меня получается это копировать с сайта.

Буду благодарна, если подскажете как скопировать ссылки.
Код
Sub Oem_Value()

    Dim post As Object
 Dim selectItems As Variant

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://zunamiprotocol.medium.com/followers"
      
        While .readyState < 4: DoEvents: Wend

        For Each post In .Document.getElementsByName("eh ei bz ca cb cc cd ce cf bl ej ek cg el em")
            r = r + 1: Cells(r, 1) = post.innerText
        Next post
        .Quit
    End With

End Sub
 
Здравствуйте.
Прежде чем взять ссылки со страницы, надо чтобы эти ссылки на странице появились
Для этого требуется в цикле прокручивать страницу браузера вниз, до тех пор пока на ней добавляются данные.
В общем, немало кода нужно
(можно и без браузера, но там тоже непросто будет, из-за необходимости выполнять POST запросы с какими-то длинными параметрами)
 
Спасибо за ответ, я поняла что слишком сложно) Сделала в питон, все намного проще вышло)
Страницы: 1
Читают тему (гостей: 1)
Наверх