リスト選択時にdispatchEventが効かない
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
Message#1 2018年3月18日(日)18時17分 From: r_federer23 | 返事 削除 変更 |
下記サイトの国リストからJapanを選択できるが、通貨リストからUSDが選択出来ません(表示上選択できるがselected=""が更新されない)共に同じ方法「dispatchEvent」でイベント発生しています。通貨リストからUSDを選択する方法をご教示お願い致します。 〇対象サイト http://www.asos.com/asos/asos-chelsea-boots-in-grey-faux-suede/prd/7615637 (右上の国旗アイコンを選択するとリスト選択windowが表示される) 〇VBAコーディング Set evt = ObjIE.Document.createEvent("HTMLEvents") evt.initEvent "change", True, False For Each Obj In ObjIE.Document.getElementsByTagname("SELECT") '国(Japan)選択 If Obj.OuterHTML Like "*country*" Then Obj.selectedindex = 106 Obj.dispatchEvent evt Exit For End If Next For Each Obj In ObjIE.Document.getElementsByTagname("SELECT") '通貨(USD)選択 If Obj.OuterHTML Like "*currency*" Then Obj.selectedindex = 1 Obj.dispatchEvent evt Exit For End If Next |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降