Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3008 / 76735

←次へ　｜　前へ→


	【79366】vbaを利用したgooglemapのルート取得

おむすび - 17/9/6(水) 16:39 -


	引用なし

	パスワード

現在下記ソースにて、ルートの出発地、目的地をセット、
その後エンターを押すことでルートが表示されるはずが、エンターがききません。マウスでクリックなどしてキーボードのエンターを押せば動くのですが、原因わかりませんでしょうか？？

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

1 hits

▼

【79366】vbaを利用したgooglemapのルート取得 おむすび 17/9/6(水) 16:39