次は、開催地、競馬場単位でループさせてみます。 場名を覚えた後にループさせてみます。 '競馬場・開催地でループする。 jのループ For j = 0 To nJYO - 1 '↑上で保存したnJYOの分だけ回る でループを作り、 'name=m の オプションのj番目を選択する objSELECT.Item("m").OPTIONs(j).selected = True '単純にj番目をselected Trueでセレクト状態にする で選択後、決定を押し、 Call IE_INPUT_Click_VALUE(objIE, "決定") '決定を押し、開催地を切り替える '表示を待つ※競馬場・開催地の切り替えを待つ Call IE_WAIT 1R-12Rのレース 終了後、 メインメニューへ戻るのを忘れずに。 テスト結果・作業動画 : http://www.youtube.com/watch?v