jQueryのflatpickrをVBAで攻略する第５回 表示をクリックする

こんにちは、今日は第５回「表示をクリックする」です。

いよいよこのシリーズも最後になりました。日付の入力が完成しましたので、表示ボタンをクリックして実際のデータ抽出を行います。ページの仕様を見ると、今回も一癖あって、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

どのタグにアタッチするか注意してくださいね。またお会いしましょう。