ExcelのVBAでGooglemapの検索

質問

現在、ExcelのVBAでGooglemapにアクセスし、検索した後、検索結果の住所を抜き出すコードを書きましたが、うまくいきません。
具体的には、検索窓に検索ワードが表示されるだけで、検索結果が表示されませんでした。
そこで、検索文字が入力された状態で、検索ボタンを押すコードを付け加えましたが、
今度は、「オートメーションエラーです。エラーを特定できません」となりうまくいきません。

修正点のご指導の方、お願いいたします。

Sub 住所をmapで検索()
Dim obIE As Object
Dim el As Variant
Dim button As HTMLInputElement

Set obIE = CreateObject("InternetExplorer.Application")
obIE.Visible = True

obIE.navigate "https://www.google.co.jp/maps/place/原宿駅/"
obIE.document.getElementById("searchbox-searchbutton").Click

While obIE.readyState <> 4 Or obIE.Busy = True
DoEvents
Wend

Set el = obIE.document.getElementsByClassName("widget-pane-link")(13)

Cells(1, 1).Value = el.innerText

End Sub

回答No.1

noname#252332

IEを開いてからボタンを押すまでの間にその下と同じBUSY待ちを入れる必要があるんじゃないですか。想像ですが。