| |
現在下記ソースにて、ルートの出発地、目的地をセット、
その後エンターを押すことでルートが表示されるはずが、エンターがききません。マウスでクリックなどしてキーボードのエンターを押せば動くのですが、原因わかりませんでしょうか？？
Sub test()
Then Exit Sub
Dim objIE As Object
Dim tgt1 As String
Dim tgt2 As String
Set objIE = CreateObject("InternetExplorer.application")
tgt1 = "東京都渋谷区代々木神園町１-１"
tgt2 = "東京都千代田区隼町４-１ 国立劇場"
objIE.Visible = True
objIE.Navigate "maps.google.co.jp/maps" 'ｈｔｔｐ：//をつけてください
Do While objIE.Busy = True Or objIE.readyState <> 4: Loop
'--ルート乗換案内オブジェクトページのの項目をダイレクト書き込み
With objIE.Document
.getElementsByClassName("searchbox-directions")(0).Click
Application.Wait Now + TimeValue("00:00:02")
.getElementsByClassName("directions-travel-mode-icon directions-drive-icon")(0).Click
Application.Wait Now + TimeValue("00:00:02")
.getElementsByClassName("tactile-searchbox-input")(2).Value = tgt1
'SendKeys "{ENTER}"
.getElementsByClassName("tactile-searchbox-input")(3).Value = tgt2
Application.Wait Now + TimeValue("00:00:02")
SendKeys "{ENTER}", True
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
