Добрый день!
Я не работала с сайтами, сейчас надо выгрузить все ссылки с сайта. Они содержаться в атрибуте href
Все что у меня получается это копировать с сайта.
Буду благодарна, если подскажете как скопировать ссылки.
Я не работала с сайтами, сейчас надо выгрузить все ссылки с сайта. Они содержаться в атрибуте 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 |