selectタグのスクレイピング

＜select＞タグの＜option＞タグで Selectedされているtextをスクレイピングするコード

【VBA】

For Each objINPUT In ie.document.getElementsByName("tDFK1CmbBox")(0).all '''''''''スクレイピング

     If objINPUT.tagname = "OPTION" Then

        If objINPUT.Selected Then

            keyword.Range("B4") = objINPUT.outerText '''''スクレイピング

            Exit For

         End If

      End If

Next

【HTML例】

'<select name="tDFK1CmbBox" id="ID_tDFK1CmbBox">

'<option value="" selected=""></option>

'<option value="01">北海道</option>

省略