查找WebBrowser的URL

Question

我已将Google世界地图嵌入到Excel 2010工作表中。按下CommandButton1会使用以下代码加载此地图：

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

点击此地图上的国家/地区时，网址会更改为以下内容： https://www.google.com/maps/place/New+Zealand/ ...

我希望能够找到该网址，以便提取点击的国家/地区。

如何将WebBrowser1的url作为字符串？

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

Answer 1

您可以使用.LocationURL属性引用该网址。即：

Dim WebBrowserURL As String

WebBrowserURL = Sheets("Sheet3").WebBrowser1.LocationURL

MsgBox WebBrowserURL

此致