Поиск города на Google Maps внутри Excel Userform при инициализации - PullRequest
Новая
       18

Поиск города на Google Maps внутри Excel Userform при инициализации

0 голосов
/ 15 мая 2019

Мне интересно, можно ли искать определенный город на Google Map внутри Excel пользовательской формы после открытия пользовательской формы?

Форма пользователя имеет имя Flights. Он имеет веб-браузер с именем WebBrowser1

Вот мой текущий код: 

Private Sub UserForm_Initialize()

    Flights.WebBrowser1.Navigate "https://maps.google.com"

End Sub

Я пробовал: 

Private Sub UserForm_Initialize()

    Flights.WebBrowser1.Navigate "https://maps.google.com"
    Flights.WebBrowser1.Document.getElementsByName("q")(0).Value = "Washington"
    Flights.WebBrowser1.Document.getElementsByClassName("searchbox-searchbutton")(0).Click

End Sub

1 Ответ

2 голосов
/ 15 мая 2019

Просто перейдите к https://www.google.com/maps?q=washington или https://maps.google.com?q=washington. 

Private Sub UserForm_Initialize()

    Flights.WebBrowser1.Navigate "https://maps.google.com?q=washington"

End Sub

или вы можете попробовать (не тестировалось) 

With Flights.WebBrowser1
    .Navigate "https://maps.google.com"
    Do While .readyState <> 4 Or .Busy: DoEvents: Loop 'wait until page loads
    .Document.getElementsByName("q")(0).Value = "Washington"
    .Document.getElementsByID("searchbox_form")(0).submit
End With
...