Я пытаюсь извлечь дату начала из следующего, но мой код не может видеть «вложенные« div »daysTips», любая помощь будет полезна. Спасибо.
HTMLСнимок экрана:
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
Сначала нужно сделать щелчок на нижнем шевроне
HTML:
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