HPのテキストボックスに入力する

googleの検索値を入力するテキストボックスは「q」というIDです。


＜サンプル＞
Sub テスト1()

    Dim objIE As InternetExplorer
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True '見えるようにする
    objIE.navigate "http://www.google.co.jp" 'googleを開く
   
    '1:IEを起動する
    Do While objIE.Busy Or objIE.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop

    '2:入力開始
    'ID属性[q]へ検索名を入力する
    objIE.document.getElementById("q").Value = "検索ワード"
End Sub