在初始化时在 Google 地图中搜索 Excel 用户表单中的城市

Question

我想知道打开用户表单后是否可以在 Excel 用户表单内的 Google 地图上搜索特定城市？

用户表单有一个名称 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

在初始化时在 Google 地图中搜索 Excel 用户表单中的城市

Search for city on Google Maps inside Excel Userform on Initialize

excel

vba

userform