очистить информацию от вложенного div excel vba - PullRequest
0 голосов
/ 03 октября 2018

Я пытаюсь извлечь дату начала из следующего, но мой код не может видеть «вложенные« div »daysTips», любая помощь будет полезна. Спасибо.

HTMLСнимок экрана: enter image description here

Sub warranty2()

Dim elements As IHTMLElementCollection
Dim IE As New InternetExplorer
Dim Doc As HTMLDocument

IE.Visible = True
IE.navigate "https://pcsupport.lenovo.com/gb/en/products/laptops-and-netbooks/thinkpad-x-series-laptops/thinkpad-x280-type-20kf-20ke/20ke/20kes5sd09/pc0x5yhz/warranty"

Do
 DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

Set Doc = IE.document
Set elements = Doc.getElementsByClassName("daysTips")

For i = 0 To elements.Length - 1
 Sheet1.Range("G" & (i + 1)) = elements(i).innerText
Next i

IE.Quit

End Sub

1 Ответ

0 голосов
/ 03 октября 2018

Сначала нужно сделать щелчок на нижнем шевроне

enter image description here

HTML:

enter image description here


Option Explicit
Public Sub GetInfo()
    Dim IE As New InternetExplorer
    With IE
        .Visible = True
        .navigate "https://pcsupport.lenovo.com/gb/en/products/laptops-and-netbooks/thinkpad-x-series-laptops/thinkpad-x280-type-20kf-20ke/20ke/20kes5sd09/pc0x5yhz/warranty"

        While .Busy Or .readyState < 4: DoEvents: Wend

        IE.document.querySelector(".icon.icon-s-down").Click

        While .Busy Or .readyState < 4: DoEvents: Wend

        Debug.Print IE.document.querySelector(".daysTips span").innerText
        .Quit 
    End With
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...