Vba автоматизации нажмите кнопку «Ввод» в этом скрипте

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

снимок экрана с ошибкой во время выполнения

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 2

Попробуйте этот код.Следует нажать на эту кнопку и открыть новую вкладку.

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

Answer 3

Попробуйте:

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

Используется метод .querySelector document для примененияСелектор css, который ищет тег input, содержащий атрибут onclick, который содержит строку 'this.form.action'

Вы также можете использовать:

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

Сработало следующее:

Option Explicit

Public Sub GetInfo()
    Dim IE As New InternetExplorer

    With IE
        .Visible = True
        .navigate "http://www.gpsvisualizer.com/geocoder/"

        While .Busy Or .readyState < 4: DoEvents: Wend
        .document.querySelector("input[onclick*='this.form.action']").Click
       ' .document.getElementsByTagName("input")(8).Click

       Stop '<==Delete me
        .Quit
    End With
End Sub