2015-06-24 234 views
1

我已將谷歌世界地圖嵌入到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作爲字符串獲取?

我沒有優秀的2013年,這顯然會使使用地圖更容易。 任何幫助將不勝感激,謝謝。

回答

0

您可以使用.LocationURL屬性引用該URL。即:

Dim WebBrowserURL As String 

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

MsgBox WebBrowserURL 

問候,