VBAでyahooの検索ボタンを押すコードを実行しても検索結果画面ではない画面に飛んでしまう

前提・実現したいこと

ExcelVBA練習中の者です。
以下のコードでyahoo検索で検索結果ページを表示させる練習をしているのですが、検索ボタンのClass名が違うのか、どうにも上手くいきません。
エラーにはならないのですが、白っぽい「今検索されているワード」のようなページに飛ばされてしまいます。
識者様、どうかお力添えをお願い申し上げます。

発生している問題・エラーメッセージ

検索結果画面ではなく「今検索されているワード」のページに飛んでしまい、検索結果が得られない

該当のソースコード

ExcelVBA
1Dim keyword As String
2keyword = InputBox("キーワードを入力してください")
3
4Dim ie As InternetExplorer
5Set ie = New InternetExplorer
6
7ie.Visible = True
8ie.navigate "https://www.yahoo.co.jp/"
9
10Do While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE
11DoEvents
12Loop
13
14Dim htmlDoc As HTMLDocument
15Set htmlDoc = ie.document
16
17With htmlDoc
18.getElementById("p").Value = keyword
19.getElementsByClassName("PHOgFibMkQJ6zcDBLbga8")(0).Click
20’↑ここが実行されるとyahooの「今検索されているワード」のページに飛び、検索結果ページにならない
21End With
22Do While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE
23DoEvents
24Loop
25End Sub

試したこと

①.getElementsByclassNameを「"_3s3YPSCNUcgAFkPwVeRyfT"」に変更
②同様に"_63Ie6douiF2dG_ihlFTen rapid-noclick-resp cl-noclick-log"」に変更
どちらもやはり検索結果は得られず「今検索されているワード」のページに飛びます。

補足情報（FW/ツールのバージョンなど）

Windows10、Excel365

行動規範の内容に同意します

回答2件

ベストアンサー

こちらの環境（Windows10-IE11）では、以下でうまく動作しました。

VBA
1With htmlDoc
2    .getElementById("p").Value = keyword
3    '.getElementsByClassName("PHOgFibMkQJ6zcDBLbga8")(0).Click
4    '↑ここが実行されるとyahooの「今検索されているワード」のページに飛び、検索結果ページにならない
5    .forms(0).submit
6End With

投稿2022/01/03 03:29