Help with HTML <button>

[bloodymax]

Hi guys, I cant seem to figure out how to add a .click on this HTML code.

Normally I would just use getelementbyid("1234").click

but there is no "id" that I can find. all I can find is an HTML code with

<button>

I just want to click the Vote Button
Help me please.

Currently this is my code

objIE.document.getElementById("option-49").Click
objIE.document.getElementsByClassName("btn btn-default vote-button weblator-poll-submit").Click
Application.Wait (Now + TimeValue("0:01:00"))

this is the HTML code

<div class="button-vote">
<button class="btn btn-default vote-button weblator-poll-submit"><i class="fa fa-spinner fa-spin vote-spin"></i> Vote</button>   </div>
<div class="weblator-view-results"><a href="#" class="weblator-view-poll btn btn-default">Show</a><a href="#" class="weblator-hide-poll btn btn-default">Hide</a>  </div>

Thanks in advance

 

[Norie]

Can you post the URL?

 

[V_Malkoti]

Try:

objIE.document.getElementsByClassName("btn btn-default vote-button weblator-poll-submit")(0).Click

 

[bloodymax]

heres the code

<
div class="button-vote">

<button class="btn btn-default vote-button weblator-poll-submit"><i class="fa fa-spinner fa-spin vote-spin"></i> Vote</button>
<div class="weblator-view-results"><a href="#" class="weblator-view-poll btn btn-default">Show</a><a href="#" class="weblator-hide-poll btn btn-default">Hide</a>
</div>

　

 

[bloodymax]

Can you post the URL?

http://www.zimachievers.com/aus/vote/

 

[kashif.special2005]

Hi bloodymax,

I used below code for change event for html page, try to incorporate this code into your code and make some changes accordingly like you can try "change" to click something like that.

Sub NavigateIt1()
    
    Dim oIE As Object
    Dim AvailableLinks
    Dim objEvent
    
    Set oIE = CreateObject("InternetExplorer.Application")
    oIE.navigate ("https://uk.investing.com/indices/us-spx-500-historical-data")
    oIE.Visible = True


    Do
        DoEvents
    Loop Until oIE.readyState = 4
    
    Set AvailableLinks = oIE.document.getElementById("data_interval")
    
    'Selecting Monthly options here
    AvailableLinks.selectedIndex = 2
    
    'Here we are firing "change" event
    Set objEvent = oIE.document.createEvent("HTMLEvents")
    objEvent.initEvent "change", False, True
    AvailableLinks.dispatchEvent objEvent
    
    Application.Wait (Now() + TimeValue("00:00:06"))
 
    MsgBox "Hi"




End Sub

Thanks
Kashif

 

[bloodymax]

Hi Kashif,
my knowledge with vba is on a novice level. I have never used createEvent before. what does it exactly do?
ive googled it around and im strugging to wrap it around my head.

thanks
Bloodymax