返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-1-20 16:53 | 只看該作者

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

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

快速地圖2.rar (7.07 KB)

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-1-21 10:00 | 只看該作者
回復 1# av8d
http://stackoverflow.com/questio ... t-to-show-search-ne
saddr  起點
daddr  終點
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 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

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
4#
發表於 2016-1-21 17:12 | 只看該作者
回復 3# lpk187

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

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
5#
發表於 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
複製代碼

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題