Ищете способ собрать информацию на бесконечной веб-странице - PullRequest
Новая
       25

Ищете способ собрать информацию на бесконечной веб-странице

0 голосов
/ 15 октября 2019

Я пытаюсь разобрать имя и положение людей в linkedin с помощью Excel VBA. Я выяснил, как получить имена и должность, но только для первых 12 человек. Дело в том, что вам нужно прокрутить веб-страницу, чтобы увидеть больше людей, и я думаю, что у меня всего 12 человек, потому что когда я загружаю веб-страницу, она рассматривает только страницу без прокрутки. Поэтому я ищу способ прокрутки страницы благодаря vba или другой способ регистрации веб-страницы (чтобы у меня была вся информация на нем).

Я пробовал несколько способов прокруткивеб-страница в интернете, но она не работает.

Вот мой код: Sub submit () 

Dim ie As SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement
Dim HTMLNames As MSHTML.IHTMLElementCollection
Dim HTMLNames1 As MSHTML.IHTMLElementCollection
Dim HTMLName1 As MSHTML.IHTMLElement
Dim HTMLName As MSHTML.IHTMLElement
Dim NRow As Long
Dim NRow1 As Long
NRow1 = 1

Set ie = New SHDocVw.InternetExplorer

ie.Visible = True
ie.navigate "......."

Do While ie.readyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = ie.document

Set HTMLNames = HTMLDoc.getElementsByClassName("artdeco-entity-lockup__subtitle ember-view")
Set HTMLNames1 = HTMLDoc.getElementsByClassName("org-people-profile-card__profile-title t-black lt-line-clamp lt-line-clamp--single-line ember-view")

For Each HTMLName In HTMLNames

        Worksheets("start").Activate
        Cells(NRow, 1) = HTMLName.innerText
        NRow = NRow + 1

Next HTMLName

For Each HTMLName1 In HTMLNames1
    Worksheets("start").Activate
    Cells(NRow1, 2) = HTMLName1.innerText
    NRow1 = NRow1 + 1

Next HTMLName1

End Sub

...