Excel VBA質問箱 IV

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

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


175 / 73902 ←次へ | 前へ→

【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 = "東京都渋谷区代々木神園町1-1"
tgt2 = "東京都千代田区隼町4-1 国立劇場"
objIE.Visible = True
objIE.Navigate "maps.google.co.jp/maps" 'http://をつけてください
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

58 hits

【79366】vbaを利用したgooglemapのルート取得 おむすび 17/9/6(水) 16:39 質問[未読]
【79368】Re:vbaを利用したgooglemapのルート取得 Jaka 17/9/6(水) 17:18 発言[未読]
【79371】Re:vbaを利用したgooglemapのルート取得 おむすび 17/9/7(木) 9:12 発言[未読]
【79375】Re:vbaを利用したgooglemapのルート取得 Jaka 17/9/7(木) 18:02 発言[未読]
【79384】Re:vbaを利用したgooglemapのルート取得 おむすび 17/9/11(月) 14:03 お礼[未読]

175 / 73902 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free