• 締切
  • 困ってます

VBAでヤフー地図を検索して表示

  • 質問No.9665522
  • 閲覧数58
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 100% (1/1)

インターネットエクスプローラーを開いて検索枠に検索語(ユーザーフォームのTextBox7)を入力後、
検索ボタンをクリックして画面が変わったら地図のタグをクリックして地図を表示するという作業
なのですがエラーが起きて困っています。
9月までは正常に動いていたのですが、10月に入ってからエラーが起きるようになりました。
エラーが起きる箇所ではgetelementbyidが使えないのではないかと思い、色々調べて試してみたのですが駄目でした。
どうか宜しくお願いします。

Sub Map_Search()

Dim ie As New InternetExplorer  'IEオブジェクトの生成
ie.Navigate2 "http://yahoo.co.jp/"  'Yahooニューストップページ
ie.Visible = True
While (ie.Busy = True) Or (ie.ReadyState < READYSTATE_COMPLETE) '読み込み待ち
DoEvents
Wend
With ie 'IE画面の大きさ調整
.Top = 0
.Left = 0
.Height = 1000
.Width = 1286
.Resizable = True
End With
ie.Document.getelementbyid("srchtxt").Value = TextBox7  '住所を入力  ←ここでエラーが起きる
ie.Document.getelementbyid("srchbtn").Click  '検索ボタンをクリック  ←おそらくここでもエラーになる?

While (ie.Busy = True) Or (ie.ReadyState < READYSTATE_COMPLETE) '読み込み待ち
DoEvents
Wend

ie.Document.getelementbyid("map").Click  '地図タグをクリック  ←おそらくここでもエラーになる?

End Sub

回答 (全1件)

  • 回答No.1

ベストアンサー率 60% (3/5)

初心者なので間違いかもしれませんが、地図検索でしたらトップページではなくて、地図のページに行って検索してはどうでしょうか?
"http://yahoo.co.jp/" ーー> "https://map.yahoo.co.jp"
そこで id名を調べて、データをセットして、submit する。
そんな流れでどうでしょう?
お礼コメント
yayax1998

お礼率 100% (1/1)

参考になりました。ありがとうございました。
投稿日時:2019/10/11 18:59
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ