Excel VBA質問箱 IV

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

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


18 / 13041 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

【79368】Re:vbaを利用したgooglemapのルート取得
発言  Jaka  - 17/9/6(水) 17:18 -

引用なし
パスワード
   過去の情報を探してきただけなので、動くかどうかは解りません。

CreateObject("WScript.Shell").SendKeys "{ENTER}"

【79371】Re:vbaを利用したgooglemapのルート取得
発言  おむすび  - 17/9/7(木) 9:12 -

引用なし
パスワード
   ▼Jaka さん:
>過去の情報を探してきただけなので、動くかどうかは解りません。
>
>CreateObject("WScript.Shell").SendKeys "{ENTER}"

ありがとうございます。
試してみましたが、動きませんでした・・・


追記
マウスとキーボード操作のときのように、

目的地のテキストボックスにフォーカスをあてて、エンターのプログラムをしてもダメでした。

【79375】Re:vbaを利用したgooglemapのルート取得
発言  Jaka  - 17/9/7(木) 18:02 -

引用なし
パスワード
   IEなどやったことが無いので、探してみた
ボタンクリックってのがあっただけで内容は全く解りません。

VBAによるIE自動制御

htt p://vba-code.net/ie/click-a-button/

役に立てなくてすみません。

【79384】Re:vbaを利用したgooglemapのルート取得
お礼  おむすび  - 17/9/11(月) 14:03 -

引用なし
パスワード
   ▼Jaka さん:
>IEなどやったことが無いので、探してみた
>ボタンクリックってのがあっただけで内容は全く解りません。
>
>VBAによるIE自動制御
>
>htt p://vba-code.net/ie/click-a-button/
>
>役に立てなくてすみません。


ボタン制御などはわかるのですが、
グーグルマップにボタンがないんですよね・・・
他の方法を検討します。

ご協力ありがとうございました。

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