テキストボックスのonChangeイベントをVBAから動かしたいです。

Question

###前提・実現したいこと

Webに入力画面があります。
formData01にコードを入れると、対応する名前がformData02に自動で入るようなページの作りです。
このページは私が管理しているものではないので編集などはできません。
JavaScriptはヘッダのところでたくさん読み込まれています。
なので、このHTMLのonChangeのところにある「updatedData()」は、そのたくさん読み込まれているjsファイルのどれかのなかにあって
おそらくformData01の値を持ってサーバに検索に行って、名前を持って戻ってくる動作が書かれていると思われます。

<input name="formData01" tabindex="1024" id="formData01" onchange="updatedData();" type="text" size="4" maxlength="6" value="">
<input name="formData02" tabindex="1024" class="disabledItem" id="formData02" type="text" size="19" maxlength="50" readonly="true" value="">

実際のページでは、formData01にコードを入力してblurしたら、formData02に名前が自動で表示されます。
最終的な目標は、この入力フォームにExcelからコードを自動入力して、表示された名前を取得することです。

Excelのマクロはこんなのを書いてみました。

Sub getName()

Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
Const URL = "http://…/そのページ.html"

objIE.navigate URL
Do While objIE.Busy Or objIE.readyState < 4
    DoEvents
Loop

objIE.document.getElementById("formData01").Value = "123456"
objIE.document.getElementById("formData01").Change

End Sub

###発生している問題・エラーメッセージ

上記のVBAで、formData02に自動で名前が出てくるはずなのに出てきません。
コード"123456"は入力されています。
VBAのChangeではブラウザにonChangeとは認識してもらえないのでしょうか。
ChangeでもBlurでもいいのですが、ブラウザにそのように認識してもらうにはどう書いたらいいのでしょうか。

###補足情報(言語/FW/ツール等のバージョンなど)
Windows（7と10があって半々くらい）
Microsoft Office 2016
IE11（会社の決まりでこれしか使えません）

==========================================
[2017/09/20]
外部から呼び出されているjsファイルをひとつずつ読んでみて、onChangeのときにどこかで何をしているのかを見ています。

    $('#formData01').focusout(function() {
    });

っていう記述をみつけて
これで、ajaxでjsonデータを持ってきて、それをformData02に入れているっぽいです。

Answer 1

やりたいことは以下のような流れかと思います。
①formData01に値をセット
②IE側処理(updateData)を実行
③formData02の値を取得

上記であれば以下のような記述でできそうな気がしますが、いかがでしょうか？

'formData01に値をセット
objIE.document.getElementById("formData01").Value = "123456"
'IE側の処理(JavaScript)を実行
objIE.document.parentWindow.execScript "updatedData();"
'ここでおそらく画面更新があるので、処理待ち(Sleep(1000)など)があったほうがよさそう？
'formData02の値を取得
MsgBox objIE.document.getElementById("formData02").Value

参考になれば幸いです。

Comments

[sumire_cl]

ありがとうございます。
できました！
document.parentWindow.execScript
っていう書き方を初めて知りました。
直接中のものを起動したりできるものなのですね。活用します！

Answer 2

当てずっぽうな回答になりますが……。

objIE.document.getElementById("formData01").FireEvent("OnChange")

というように、明示的にブラウザに「イベント着火してくれ」と命令する必要がありそうです。

参考資料

• VBAでIEを起動し、リスト選択後、イベントを起こしたいです。 Yahoo! 知恵袋

Comments

[sumire_cl]

ありがとうございます。
objIE.document.getElementById("formData01").FireEvent ("onchange")
のみならず
objIE.document.Script.setTimeout "javascript:updatedData()", 200
もチャレンジしてみましたがダメでした…。
いずれもExcelはエラー出ず終了、フォームのほうは”123456”が入力されているだけの状態です。
私の声が聞こえていないのでしょうか…。
もしくはブラウザの設定とかでしょうか…。

[sumire_cl]

作りをうんと簡単にしたこのような入力フォームのページを自分で作って
FireEventでやったら効いたので
ブラウザの設定でなくて、このページでさらに何か見ている項目があって、それで阻まれている…？という感じがしています。

[manzyun]

追記された質問文を見る限りだと、focusoutでも何かイベント走ってるようにサーバー側に見せかけてるのかなという印象を受けました。

ただ、もしかするとjawaさんのソースの方がスマートかもしれませんね。

[sumire_cl]

ありがとうございます。おかげさまで、
onchange自体を起動したい
というのは、これでできるようになったので
今度は、この外部jsファイルに書いてあるfocusoutをどうにかする方法を考えないといけない
というところまでたどり着きました。

他の項目に
objIE.document.getElementById("formData03").Focus
ってしただけでは、formData01をfocusoutしたと認識してもらえないっぽいので
この新たに困っているところについて
新しく質問を立てようと思っています。
しばらくお目汚しの質問が続くと思いますが、よろしくお願いいたします。