VBAでヤフー地図を検索して表示
インターネットエクスプローラーを開いて検索枠に検索語(ユーザーフォームの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