'サンプル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