VBA webscraping for onclick

[seph187]

I have been trying to use VBA to webscrape some data,

however, i have not much success being able to click on the hyperlink or call the onclick function. Help will be very much appreciated. My code is listed below as well

the only HTML information is listed as below

<tr class="linkable" onclick="window_directory_member('display.php?UidNum=410640'); return false;">

Sub webscrape()     
    Dim objIE As InternetExplorer 'special object variable representing the IE browser
    Dim aEle As HTMLLinkElement 'special object variable for an <a> (link) element
    Dim y As Integer 'integer variable we'll use as a counter
    Dim result As String 'string variable that will hold our result link
    Dim HTMLElement As Object
    Dim html As Object
 
    Set objIE = New InternetExplorer
    objIE.Visible = True

    objIE.FullScreen = False
    
    objIE.navigate "https://www.theclearinghouse.org/uid-lookup"
    
    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
    
    objIE.Visible = True
    
    objIE.document.getElementsByTagName("iframe")(0).contentDocument.getElementById("UidNum2").Value = "410640"

    objIE.document.getElementsByTagName("iframe")(0).contentDocument.getElementById("SubmitUid").Click
    
End Sub

 

[Dan_W]

Well, I thought your code worked perfectly! The clicking method worked and toook me through to the details page. Mind you, I was stepping through the code (pressing F8), so I was moving slower than IE would if left to its own devices. Given this, it would seem to suggest that you need to slow IE down a bit before clicking. Do you have a subroutine that can do that? If not, I'll dig one out.

 

[Dan_W]

Actually, you know what - I just ran it at normal speed and it still worked fine, so I don't know what to tell you - on the plus side, your code is perfect!

If you need it, here's the code I use for pause the computer - there are other (and probably better) routines, but this one has never let me down. To run it, you add how many seconds you want tit to pause for as an argument, so: PAUSE 3 will pause for 3 seconds, and so on...

Sub PAUSE(Period As Single)
    Dim T As Single
    T = Timer
    Do
        DoEvents
    Loop Until T + Period < Timer     
End Sub

 

[seph187]

Actually, you know what - I just ran it at normal speed and it still worked fine, so I don't know what to tell you - on the plus side, your code is perfect!

If you need it, here's the code I use for pause the computer - there are other (and probably better) routines, but this one has never let me down. To run it, you add how many seconds you want tit to pause for as an argument, so: PAUSE 3 will pause for 3 seconds, and so on...

Sub PAUSE(Period As Single)
    Dim T As Single
    T = Timer
    Do
        DoEvents
    Loop Until T + Period < Timer    
End Sub

Hi Dan, i have not coded the last portion which is to click the UID one more time in order for the popup to show. Thank you so much for trying though.

 

[Dan_W]

Ahh - I had assumed that the link you weren't able to click on was the last one in your code. I didn't realise that you were intending to progress further. I'll have a look if I get a chance this weekened, but the only thing that comes immediately to mind is that you can always execute javascript by: objIE.document.parentWindow.execScript(INSERTSCRIPTHERE, "javascript"). Do let me know if you manage to solve it before I get a chance to take a crack at it.

 

[Dan_W]

Hi - did you have any luck wit this?