「具体的には<form>タグのうち、Name属性が『f』のもので、その中のタグのうちName属性が『q』のものを指している」
'サンプル3.2_テキストボックスに表示された値を取得する
Public Sub
getDataFromInput()
Dim ie As
InternetExplorer
Dim htdoc As
HTMLDocument
Dim InputText As
HTMLInputElement
'Google検索画面を取得
Set ie =
Day2.getIE("Google")
'ドキュメントを取り出す(参照設定:Microsoft HTML Object
Library)
Set htdoc =
ie.Document
'FormタグとInputタグのName属性を指定してインプット要素を取得
Set InputText = htdoc.forms("f").elements("q")
'入力されている値を表示
MsgBox InputText.Value
End Sub