查找WebBrowser的URL

我已经将谷歌世界地图embedded到Excel 2010表格中。 按CommandButton1加载此地图与此代码： 

Private Sub CommandButton1_Click() link_name = "https://www.google.com/maps" Call Sheets("Sheet3").WebBrowser1.Navigate(link_name) End Sub

点击此地图上的国家/地区时，url将变为如下所示： https ： //www.google.com/maps/place/New+Zealand/ …

我希望能够findurl，以提取被点击的国家。

如何获得WebBrowser1的URL作为一个string？

我没有Excel 2013，这显然会使使用地图更容易。 任何帮助将不胜感激，谢谢。

您可以使用.LocationURL属性来引用URL。 即： 

 Dim WebBrowserURL As String WebBrowserURL = Sheets("Sheet3").WebBrowser1.LocationURL MsgBox WebBrowserURL

问候，

Interesting Posts