VBAサンプル
================================================
=== 開始!!=======================================
================================================
Sub 入力フォームの入力()
=====================================================
' YAHOOの検索ボックスにワードを入れて実行させるマクロ
' ※ワードは固定だが、エクセルから取得でループなど応用可能
=====================================================
=====================================================
'@初期処理
=====================================================
'IEオブジェクトを作成し、開く(今はページしていないので空白)
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
=====================================================
'A画面遷移
=====================================================
'画面をここへ移動する
ie.Navigate "http://www.yahoo.co.jp/"
'画面が開くまで待つ
Do While ie.Busy Or ie.ReadyState < 4
DoEvents
Loop
=====================================================
'すべてのページに対するループ処理
'※「Navigate関数はすごいことにIEを閉じる必要がない。」
Dim url As Variant
Dim i As Long
i = 1
ie.Document.Forms(0).Item("p").Value = "VBA WEB検索"
ie.Document.Forms(0).Submit '送信処理
End Sub
=======================================
=== 終了!!==============================
=======================================