リスト選択時にdispatchEventが効かない
未読分：2件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| Message#2 2018年4月18日(水)17時17分 From: ジャッカル | 返事 削除 変更 |
| そういう場合は、直接javascriptをうごかしたらいいと思う > 下記サイトの国リストから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 |
| 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
