ＩＥのプルダウンを選択する

ＩＥのプルダウンを選択するには
.selectedIndex =　でインデックス番号を指定する。
なお、インデックス番号は0からはじまる。


＜サンプル＞
    Dim objIE As InternetExplorer
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True '見えるようにする
    objIE.navigate "http://saru-html.pupu.jp/8_8.shtml" 'リストボックスとコンボボックスが表示されたHPを開く
  
    '1:IEを起動する
    Do While objIE.Busy Or objIE.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop

    '2:入力開始
    Dim htdoc As HTMLDocument
    Set htdoc = objIE.document
  
    'name属性[kamoku1]を探す
    Dim myHTML1 As HTMLAnchorElement
  
    '[デートスポット]リストボックスの[鳥取県]を選択する
    For Each myHTML1 In htdoc.getElementsByTagName("SELECT")  '[SELECT]タグを用いた場合
        If InStr(myHTML1.innerText, "部長") > 0 Then 'myHTML1に部長が含まれるかか調べる
            myHTML1.selectedIndex = 1 '部長（インデックス番号1）を選択する
            Exit For   'ループから抜ける
        End If
    Next