回復 2# jackdream
您好!好像沒有找到我要的!我把我的VBA PO上來好了!
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 And Target.Value <> "" Then '此處2表示在B欄且資料不等於空
Cancel = True '取消雙擊事件(修改資料要按F2或直接在fx區上改)
With CreateObject("InternetExplorer.Application")
.Navigate "http://maps.google.com.tw/" '瀏覽google
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
.Document.all("d_d").innerText = "大溪鎮員林路三段257巷33弄45號" '這一個是出發地
.Document.all("d_daddr").innerText = Target '這一個是目的地(即b欄上資料)
.Document.all("d_sub").Click '送出訊息
.Visible = True '開啟網頁視窗
End With
End If
End Sub
紅色的部分好像是開啟IE瀏覽器但是我想改成火狐瀏覽器
可是我更改成火狐瀏覽器以後他的下一行又會出錯!請大大幫忙!謝謝!
發表於 2010-9-8 18:30
| 
發表於 2010-9-8 21:04
| 
