时间戳

首页 > 解决方案 > 初始化时在 Excel 用户表单内的 Google 地图上搜索城市

excel - 初始化时在 Excel 用户表单内的 Google 地图上搜索城市

问题描述

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

用户窗体有一个名字Flights。它有带有名称的 Web 浏览器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

标签： excelvbauserform

解决方案

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

推荐阅读