EXCEL VBA で IE を制御したいが、comboboxの値を設定しても画面に反映しないのです

前提・実現したいこと

職場のシステムが更新されたのですが、ＵＩがちょっとどうかしている設計で
操作性が悪いため、EXCEL VBA で自動操作できるように奮闘中です

試したこと

objIE.document.getElementById("color").selectedIndex = 1

で、「青色」を選択しているのですが、（msgboxで選択の成功は確認済み）

objIE.document.getElementById("color").FireEvent ("onchange")

で、画面のコンボボックスを更新したいのですが、なぜか更新されません
HTMLソース文中に　onchange=　といった記載が無いため、下記のHPを参考に
https://qiita.com/rinkun/items/08b6329c0e6fd3db7b37
強制的に発火させようとしましたが、これもうまくいきませんでした

.Document.Script.setTimeout なども試そうとしましたが、
Javaに詳しくないため、うまくいきませんでした

該当のソースコード

<td class="w100Per tLeft">
<select class="easyui-combobox w100Per mousetrap combobox-f combo-f textbox-f" id="color" style="display: none;" textboxname="color.Cd" comboname="color.Cd">
<option selected="selected" value=""></option>
<option value="001">001:赤色</option>
<option value="002">002:青色</option>

雑駁な質問で恐縮ですが、ご指導のほど、よろしくお願いいたします

行動規範の内容に同意します

回答3件

select要素にonchangeは設定されていないのに、選択しただけで更新されるということは、何が別の方法で処理が実行されているということです。

考えられるのは、form内にselect要素が埋め込まれている場合。
その場合は、下記でいけると思います。

VBA
1With objIE.document
2    .getElementById("color").selectedIndex = 1
3    .Forms(0).submit
4End With

formが一つまたは最初の場合のコード例ですが、２つ目以降のformの場合は 0 を適宜変更してください。

投稿2018/02/27 02:25

hatena19

総合スコア33715

sinochann

2018/02/27 04:34

回答ありがとうございます実行すると、他のページから移動　or　このページにとどまる　とメッセージかでました移動を選択すると、システムより「不正な操作が行われました」とでますあと、後出しですみません、前出のページのソースのすぐあとに </select> <b style="color: blue;">[3]</b><span class="textbox combo" style="width: 736px; height: 20px;"><span class="textbox-addon textbox-addon-right" style="right: 0px;"><a tabindex="-1" class="textbox-icon combo-arrow" style="width: 18px; height: 20px;" href="javascript:void(0)" icon-index="0"></a></span><input class="textbox-text validatebox-text textbox-prompt" style="width: 885px; padding-top: 0px; padding-bottom: 0px; margin-right: 20px; margin-left: 0px;" type="text" placeholder="" autocomplete="off"> <b style="color: blue;">[4]</b><input name="color.cd" class="textbox-value" type="hidden" value=""></span> とあります、また、ページソースの上部に、 <a onclick="(function() { var form = document.createElement('form'); 
				form.action = '/sample-web/sample0001'。。。。。。。ともありますこのあたりが悪さをしているのでしょうか？

sinochann

2018/02/27 04:35

ｃとかｖｂはある程度さわれるのですが、Javaとかhtmlは門外漢なのでうまく説明できていませんが、よろしくお願いいたします

hatena19

2018/02/27 05:09

ソースの一部だけでは、判断は難しいですね。実際のページのURLを提示されれば解析できるかもしれませんが。ただ、私もWEB関係はそんなに詳しくないので、これ以上回答できるかはわかりません。

sinochann

2018/02/27 05:49

一部だけ切り取っての質問、済みませんでした　です

行動規範の内容に同意します

まず、Java と JavaScript は全く別物です。
名前が似過ぎてるので面倒なもんです。

そして、「msgboxで選択の成功は確認済み」とは
どうやって確認されているのでしょうか？

恐らく、コンボボックスのリストが選択できてるはずなのに
画面上のコンボボックスの値が変わらない？
と思われている状況だと推測されますが、
選択自体ができてない可能性の方が高いように思います。
（JavaScriptは初心者ですが、コンボボックスに関数やイベントが指定されてないように見受けられます）

あと、objIE･･･("color").value="002" 等は試されたのでしょうか？

投稿2018/02/27 01:45

ExcelVBAer

総合スコア1175

sinochann

2018/02/27 01:55

早速の回答、ありがとうございます objIE.document.getElementById("color").selectedIndex = 1 MsgBox objIE.document.getElementById("color").selectedIndex で　「１」　と表示されるので、更新はかかっていると思います objIE･･･("color").value="002" も試しましたが、同様に駄目でした

ExcelVBAer

2018/02/27 02:43

なるほど。次に疑わしきは、「getElementById("color")」が、想定箇所を取得しているかどうかとう点が考えられますが、該当ページ内に「id="color"」は１か所しか無いでしょうか？

sinochann

2018/02/27 04:18

返信ありがとうございます該当ページ内に「id="color"」は１か所しか無いです