初始化时在Excel Userform中搜索Google Maps上的城市

Question

我想知道一旦打开了用户形式，excel用户形式中的Google Map上是否可以搜索特定的城市？

用户形式具有名称Flights。它具有名称WebBrowser1

的Web浏览器

这是我当前的代码：

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

Answer 1

只需导航到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