Qiita Teams that are logged in
You are not logged in to any team

Log in to Qiita Team
Community
OrganizationAdvent CalendarQiitadon (β)
Service
Qiita JobsQiita ZineQiita Blog
22
Help us understand the problem. What is going on with this article?
@rinkun

VBAメモ JavaScriptイベントを強制的に発火させる

More than 3 years have passed since last update.

ブラウザ操作を自動化して欲しいって依頼を受けたので、
エクセルからインターネットエクスプローラーを操作するマクロを組んだ。

Excel2016
InternetExplorer11

ウェブ上のフォームに値を自動で入力したかったのだが、
JavaScriptが発火しなくて困った。
selectタグで選んだoptionによって、
項目が動的に変化するようなよくあるパターン。

どうやらoptionを選択するだけではイベントが発生しないようだ。

ググると出てくるのがfireEvent

こんな感じで使う。

' <option value="1">1</option>を選択する

With ie.Document.getElementById("mySelect")
    .Value = "1"
    .fireEvent ("onchange")
End With

でも、これselectoncahgeイベントが仕込まれてないと発火しない。

今回は外部のJSファイルにある関数を実行させたい。

で、見つけたのがこれ。
https://msdn.microsoft.com/ja-jp/library/ff975247(v=vs.85).aspx

Dim evt As Object
Set evt = ie.document.createEvent("HTMLEvents")
evt.initEvent "change", True, False

With ie.Document.getElementById("mySelect")
    .Value = "1"
    .dispatchEvent evt
End With

これで、ようやくJSが発火するようになった。
やれやれ。


エクセルからブラウザ操作を自動化したいという需要ってけっこうあるのかしら。
頼まれたのは2回目。。。

22
Help us understand the problem. What is going on with this article?
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
rinkun
30を目前に「手に職」への憧れが捨てられず、サラリーマンをやめて、フリーランス、プログラミングの世界に飛び込みました。 WEBをメインに、エクセルVBAとキッズプログラミングでScratchとUnityを少々。 最近はPWAとPhina.jsに興味があります。 サークルアラウンド(株)佐藤正志氏に師事。

Comments

No comments
Sign up for free and join this conversation.
Sign Up
If you already have a Qiita account Login
22
Help us understand the problem. What is going on with this article?