三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク



XXXXXさんへ 未解決 あとで調べる ◆質問「VBAのIE操作でリスト選択時にFireEventが効かない」

下記の質問をいただくが、解決しなかった。再度 あとで見てみる・・・


◆質問「VBAIE操作でリスト選択時にFireEventが効かない」

VBAコーディング

For Each Obj In ObjIE.Document.getElementsByTagName("OPTION")
If Obj.Value = "Black Gunmetal" Then
Obj.Selected = True
Obj.FireEvent ("OnChange")
Exit For
End If
Next



上記質問に対して、の 回答が

イベントが発生しないパターンで、似ているのが
三流君VBA:IE ラジオボタン(RADIO)の.Checkedと.Clickの違い
http://www.ken3.org/vba/backno/vba148.html
で、
.Click で イベント発生ですが、
三流君VBA:IE SELECT後 .fireEventでJavaScriptのイベントを起動
http://www.ken3.org/vba/backno/vba155.html
みたいに
現在使用中の .fireEvent で 発生でも動作すると思いますが・・・
スバリの回答になっていなくスミマセン。

For Each Obj In ObjIE.Document.getElementsByTagName("OPTION") 
    If Obj.Value = "Black Gunmetal" Then
        Msgbox "クリック?してみる"

        Obj.Selected = True
        'Obj.FireEvent ("OnChange")
         Obj.Click  'クリックしてみる
         Msgbox "ループからでる"

        Exit For
    End If
Next

何かの参考となれば幸いです。 三流プログラマー Ken3


と返信するが、動作しなかったみたい。
あとで、見てみる。