返回列表 上一主題 發帖

[發問] 有關使用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  網頁有跑出來~但是地圖無法顯示。
收藏 分享

av8d

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

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題