いよいよこのシリーズも最後になりました。日付の入力が完成しましたので、表示ボタンをクリックして実際のデータ抽出を行います。ページの仕様を見ると、今回も一癖あって、BUTTONタグはなく、もちろんonclick要素もありません。どのようにしたらいいでしょうか?
ここでは、第3回でやったmousedownイベントをclickイベントに応用します。
VBA
Dim elem As Object
Set elem = objIE.document.getElementsByClassName("_1hp-NOJw _3K8AeS0L _1HzmqfIq _1O2x6Ypo")(0)
Dim evt As Object
Set evt = objIE.document.createEvent("MouseEvents")
evt.initMouseEvent "click", True, True, objIE, 0, 0, 0, 0, 0, False, False, False, False, 0, Null
elem.dispatchEvent evt
Set elem = objIE.document.getElementsByClassName("_1hp-NOJw _3K8AeS0L _1HzmqfIq _1O2x6Ypo")(0)
Dim evt As Object
Set evt = objIE.document.createEvent("MouseEvents")
evt.initMouseEvent "click", True, True, objIE, 0, 0, 0, 0, 0, False, False, False, False, 0, Null
elem.dispatchEvent evt
どのタグにアタッチするか注意してくださいね。またお会いしましょう。
この記事へのコメント