Question

我一直试图在GPS Vizualizer上单击此按钮，但均未成功，我尝试了几种方法，包括设置调光等并设置到文档之后。没有成功，我想念的是什么，任何人都可以帮忙，谢谢

With doc.all("input")
    .focus
    .OnClick
End With

HTML：

<input style="font-weight: bold; margin-bottom: 3px;" 
  onclick="this.form.action='http://www.gpsvisualizer.com/map?output_geocoder'; document.map_form.special.value='geocoder'; this.form.submit();" 
   type="button" value="Draw a map">

Answer 1

尝试：

.document.querySelector("input[onclick*='this.form.action']")

它使用document的{{3}}方法来应用CSS选择器，该选择器查找包含属性input的{{1}}标签，该标签包含字符串onclick < / p>

您还可以使用：

'this.form.action'

以下工作有效：

doc.getElementsByTagName("input")(8).Click

Answer 2

runtime error screen capture

Set doc = IE.Document
With doc
doc.getElementById("google_key_box").Value = "Api Key here"
doc.getElementById("geocode_input").focus
doc.getElementById("geocode_input").Value = retVal
End With
With doc.all("data_source")

                                .focus
                                .Value = "google"
                                .OnChange
                                End With
With doc.all("start")

                                .focus
                                .OnClick
                                End With

doc.querySelector("input[onclick*=this.form.action='http://www.gpsvisualizer.com/map? 
output_geocoder';]").Click

Answer 3

尝试此代码。它应该单击该按钮并打开一个新标签。

Sub ClickONButton()
    Const url As String = "http://www.gpsvisualizer.com/geocoder/"
    Dim IE As New InternetExplorer, Html As HTMLDocument, R&

    With IE
        .Visible = True
        .navigate url
        While .Busy = True Or .readyState < 4: DoEvents: Wend
        Set Html = .document
    End With
    Html.querySelector("input[value='Draw a map']").Click
End Sub

要添加到库中的引用：

Microsoft Internet Controls
Microsoft HTML Object Library

Vba Automation单击此脚本中的“输入”按钮

3 个答案: