Cant figure out why I cannot click the button in IE using VBA....

[Storm8585]

Hi, I am looking to click a button on this webpage Geology of Britain viewer | British Geological Survey (BGS), specifically the one labelled Go To Location (RHS). I cant figure out what its reference is when I look at the source code. My VBA is below, which doesn't work...

Sub Geol()
    Dim sht As Worksheet
    Dim IE As Object
    Dim ieDoc As HTMLDocument
    Dim Item As Variant
    Dim SignInButton As HTMLInputButtonElement
    Set sht = ActiveSheet
    Set IE = CreateObject("InternetExplorer.Application")
    'Open IE
    IE.Visible = True
    IE.Navigate "[URL="http://mapapps.bgs.ac.uk/geologyofbritain/home.html"]Geology of Britain viewer | British Geological Survey (BGS)[/URL]"
    
    'Wait until site is loaded
    Do While IE.readyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop
    
    'Get the body
    Set ieDoc = IE.Document
    'Fill the information
    'ieDoc.getElementById("txtPostCode").Value = sht.Range("L11").Value
   
      Set SignInButton = ieDoc.getElementById("locationDlg_underlay")
   'SignInButton.Focus
   'SignInButton.Click
End Sub

I have also tried ieDoc.Document.forms(0).submit
but that didt work either. Any suggestions?

 

[John_w]

    Dim loc As HTMLSpanElement
    Do
        Set loc = ieDoc.getElementById("dijit_form_Button_1_label")
        DoEvents
    Loop While loc Is Nothing
    loc.Focus
    loc.Click

 

[Storm8585]

John, Thanks for the prompt response. However this addition does not work. My code is now

Sub Geol()
    
    Dim IE As Object
    Dim ieDoc As HTMLDocument
    Dim loc As HTMLSpanElement
    Set IE = CreateObject("InternetExplorer.Application")
    'Open IE
    IE.Visible = True
    IE.Navigate "[url=http://mapapps.bgs.ac.uk/geologyofbritain/home.html]Geology of Britain viewer | British Geological Survey (BGS)[/url]"
    
    'Wait until site is loaded
    Do While IE.readyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop
    
  
    Do
        Set loc = ieDoc.getElementById("dijit_form_Button_1_label")
        DoEvents
    Loop While loc Is Nothing
    loc.Focus
    loc.Click
   
End Sub

It errors on this line Set loc = ieDoc.getElementById("dijit_form_Button_1_label") - runtime error 91. Object variable or With block variable not set. Any thoughts? What am I missing?

 

[mjbeam]

Try this:

Sub Geol()
    Dim sht As Worksheet
    Dim IE As Object
    Dim ieDoc As HTMLDocument
    Dim Item As Variant
    Dim SignInButton As HTMLInputButtonElement
    Set sht = ActiveSheet
    Set IE = CreateObject("InternetExplorer.Application")
    'Open IE
    IE.Visible = True
    IE.Navigate "http://mapapps.bgs.ac.uk/geologyofbritain/home.html"
    
    'Wait until site is loaded
    Do While IE.ReadyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop
    
    'Get the body
    Set ieDoc = IE.Document
    'Fill the information
    'ieDoc.getElementById("txtPostCode").Value = sht.Range("L11").Value
   
      Set SignInButton = ieDoc.getElementById("dijit_form_Button_1")
   SignInButton.Focus
   'SignInButton.Click
End Sub

 

[Storm8585]

Brilliant - thanks to you both! mjbeam cracked it.

 

[Storm8585]

HI - me again. Now having issues with this site: https://www.old-maps.co.uk/#/. I can get the postcode in the right box but cant seem to get the Search button to click. Any help?