標題: [發問] 有關使用Excel方便讀取Google地圖內的起始點(請下載附件) [打印本頁]

---

作者: av8d    時間: 2016-1-20 16:53     標題: 有關使用Excel方便讀取Google地圖內的起始點(請下載附件)

本帖最後由 av8d 於 2016-1-20 17:23 編輯

[attach]23144[/attach]

1/20  17:17  網頁有跑出來~但是地圖無法顯示。

---

作者: stillfish00    時間: 2016-1-21 10:00

回復 1# av8d
http://stackoverflow.com/questio ... t-to-show-search-ne
saddr  起點
daddr  終點

---

作者: lpk187    時間: 2016-1-21 10:11

本帖最後由 lpk187 於 2016-1-21 10:25 編輯

回復 1# av8d
可以這樣
https://www.google.com.tw/maps/dir/啟點/終點
設[B2]為啟點，[C2]為終點

所以:
                With CreateObject("InternetExplorer.Application")
                .Visible = True
                .Navigate "https://www.google.com.tw/maps/dir/" & [B2] & "/" & [C2]
                Do While .Busy Or .ReadyState <> 4
                    DoEvents
                Loop
            End With

---

作者: av8d    時間: 2016-1-21 17:12

回復 3# lpk187

謝謝兩位老師的幫忙，右方地圖看來要手動調整了，需要一番功夫，還是非常感謝兩位老師。

---

作者: av8d    時間: 2016-10-6 11:44

本帖最後由 av8d 於 2016-10-6 11:47 編輯

回復 3# lpk187


    老師~我發現一個問題~我發現無論按兩下B2、B3、B4，他都只會作用B2起點C2終點

照道理按兩下B2，會出現B2起點C2終點沒錯
但是按兩下B3，應該要出現3起點C3終點才對

照到方法了~謝謝各位老師

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Column = 2 And Target.Value <> "" Then
   
3.         If Target.Range("B1") <> "" Then
   
4.             Cancel = True
   
5.             With CreateObject("InternetExplorer.Application")
   
6.                 .Navigate "https://www.google.com.tw/maps/dir/" & Target & "/" & Target.Range("B1")
   
7.                 Do While .Busy Or .ReadyState <> 4
   
8.                     DoEvents
   
9.                 Loop
   
10.                 .Document.all("gs_id51").innerText = Target
    
11.                 .Document.all("gs_id52").innerText = Target.Range("B1")
    
12.                 '.Document.all("d_sub").Click
    
13.                 .Visible = True
    
14.             End With
    
15.         End If
    
16.     End If
    
17. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)