「値の取得のみができる属性と読み書き両方ができる属性が混在しているから注意が必要よ」
'サンプル3.3_テキストボックスに値をセットする
Public Sub
setDataToInput()
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")
'値をセット
InputText.Value =
"Excelから値を入力"
End Sub