Hi every one
I want to extract the link that is in this page
https://old.goo-2o.com/5dfd16ae0d783
found in the text "Click here"
but the problem is: the result in the Debug is always "NULL"
here is my code
Set elems= html.getElementsByClassName("unauth_capsule clearfix")
For Each elm In elems
result = elm.getAttribute("href")
Debug.Print result
NextThanks in advance
Hi,
Please use below code:
Sub scrape_link()
On Error Resume Next
Dim HTMLDoc As New HTMLDocument
Dim ieBrowser As New InternetExplorer
'variable to specify the row number in excel
Dim trow As Object
'To open and show Internet Explorer
ieBrowser.Visible = True
'To Open website in Internet Explorer
ieBrowser.navigate "https://old.goo-2o.com/5dfd16ae0d783"
Do
' Wait till the Browser is loaded
Loop Until ieBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = ieBrowser.document
For Each trow In HTMLDoc.getElementsByClassName("ng-scope")
If trow.getElementsByTagName("a")(0).innerText = "Click Here" Then
MsgBox trow.getElementsByTagName("a")(0).href
End If
Next
Set ieBrowser = Nothing
Set HTMLDoc = Nothing
End Subhello
its work fine
but the cpu is load to 100%
and the process (iexplore.exe) is duplicated many time
Hi ABBAN270,
Seems the above post is not related to same thread. Right?
Thanks,
Saurabh
Don’t have an account yet? Register yourself now and be a part of our community!