前提・実現したいこと
ヤフーのインプットボックスに入力された用語をヤフーの検索窓に転記し、検索ボタンをクリックする
機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー91 オブジェクト変数またはwithブロック変数が設定されていません。
該当のソースコード
Sub 検索窓に任意の文字列を入力して検索()
Dim keyword As String keyword = InputBox("キーワードを入力してください") Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "https://www.yahoo.co.jp/" Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE DoEvents Loop Dim htmlDoc As HTMLDocument Set htmlDoc = objIE.document htmlDoc.getElementsByTagName("input")(7).getElementsByClassName("ai")(0).Value = keyword Debug.Print htmlDoc
End Sub
### 試したこと スクレイピング初心者で初歩的なミスかもしれませんが、ご回答宜しくお願い致します。 ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/05/19 00:58
2021/05/19 02:19
2021/05/19 07:40
2021/05/20 05:25