Excel VBAオプションWebサイトのドロップダウンリスト

Question

VBAを使用してこのWebサイトを自動化しようとしています。私はドロップダウンボックスから値を選択する必要があるところに止まっています。これは私の最初のプロジェクトなので、これは非常に新しいものです。 これは私が値を選択するためにコード化されたものである：私も、私が見つけることを試みている値が実際にマッチしたかnot-なっているかどうかを確認します。Debug.Printを使用してみましたが

Set objSelect = objIE.document.getElementById("personTitle") 

For Each opt In objSelect.Options 
If opt.Value = "Miss" Then 
    'Debug.Print "found!" 

    opt.Selected = True 
    'opt.Selected = "selected" 
Else 
    'Debug.Print "not found!" 

    opt.Selected = False 
End If 
Next 

をし、それが判明しますそれは一致する。 私が直面している唯一の問題は、値が設定されていないことです。 ここにいるのは誰ですか？ここで

は、そのセクションのHTMLです：ここで

<div class="input-wrap input-wrap__inline"> 
 

 
      <div tabindex="-1" class="select is-placeholder"><div class="select_display">Title</div><div class="select_arrow glyphicon glyphicon-chevron-down"></div><dl class="select_list"><dt class="pretend-dd is-hover" data-index="1" data-val="Mr">Mr</dt><dt class="pretend-dd" data-index="2" data-val="Mrs">Mrs</dt><dt class="pretend-dd" data-index="3" data-val="Miss">Miss</dt><dt class="pretend-dd" data-index="4" data-val="Ms">Ms</dt><dt class="pretend-dd" data-index="5" data-val="Dr">Dr</dt></dl></div><select name="personTitle" class="parsley-validated hasCustomSelect .no-change, .bv-dropdown-select is-invisible" id="personTitle" required="" data-required-message="Please select a title"> 
 
       <option selected="selected" value="">Title</option> 
 
       <option value="Mr">Mr</option> 
 
       <option value="Mrs">Mrs</option> 
 
       <option value="Miss">Miss</option> 
 
       <option value="Ms">Ms</option> 
 
       <option value="Dr">Dr</option> 
 
      </select> 
 

 
    </div>

Answer 1

は、あなたがまだの場合はしようとするカップルのオプションは次のとおりです。

If opt.Value = "Miss" Then 
'Debug.Print "found!" 
opt.Click 

OR

If opt.Value = "Miss" Then 
'Debug.Print "found!" 
opt.Focus 
opt.FireEvent ("onchange") 

これがkendoGridやkendoDropDownListで行われたことが判明した場合は、私もそれを手伝うことができます。