Verwenden von VBA zum Klicken auf eine Schaltfläche

Question

Ich versuche, Informationen von einer Website zu ziehen, kann aber nicht für das Leben von mir herauszufinden, wie Sie auf die Schaltfläche klicken. Ich habe den Code, um die Informationen einzugeben. Dies ist der HTML-Code für die Website. Jede Hilfe wäre willkommen.

<p role="button" tabindex="0" class="fmtbutton" onkeypress="finddistancebetweenaandb(document.forms['inp']['pointa'].value,document.forms['inp']['pointb'].value);" onclick="finddistancebetweenaandb(document.forms['inp']['pointa'].value,document.forms['inp']['pointb'].value);">&nbsp;Show&nbsp;</p> 

Hier ist der vollständige Code, den ich bisher habe.

Sub RoundedRectangle1_Click() 
Dim eRow As Long 
Dim ele As Object 
Dim objIE As Object 

Set objIE = CreateObject("InternetExplorer.Application") 
FranchiseAddress = Range("B2").Value 
Movefrom = Range("B3").Value 
moveto = Range("B4").Value 

With objIE 
    .Visible = True 
    .navigate "https://www.freemaptools.com/how-far-is-it-between.htm" 
Do While .Busy Or _ 
.readyState <> 4 
DoEvents 
Loop 
Set d = .Document.getElementsByName("onoffswitch") 
d.Item(0).Click 
Set f = .Document.getElementsByName("pointa") 
f.Item(0).Value = FranchiseAddress 
Set a = .Document.getElementsByName("pointb") 
a.Item(0).Value = Movefrom 

‚Dies ist, wo ich bin stecken‘

End With 
End Sub 

Ich habe auf dieser Seite für viele Fragen haben mehrere Lösungen ausprobiert, aber keiner von ihnen scheint zu funktionieren.

Vielen Dank.

Answer 1

fügen Sie diese in Ihren Code

Dim aaa As Object 
Set aaa = .Document.getElementsByClassName("fmtbutton") ' this returns 4 objects, your button is the first one 
aaa(0).Click