ログインフォームへの値の入力と送信も基本的には同じ操作になりますので、おさらいとして、その際のプログラムを紹介します。 Sub MySub() 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 Wit