前提・実現したいこと
Windows8.1、Excel2013、VBAでIE11の操作をしたいと考えています。
プルダウンボックスの選択後、値が反映されなかったので調べたところ、JQueryを起動する必要がありました。Webに出ていた手順を試したところ、以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー 2147467259(80004005) オートメーションエラーです。 エラーを特定できません。 `` ### 該当のソースコード ```ここに言語名を入力 Sub ログイン() Dim objIE As InternetExplorer Set objIE = New InternetExplorerMedium objIE.Visible = True Dim evt As Object Set evt = objIE.document.createEvent("HTMLEvents")★ evt.initEvent "change", True, False ・ ・ objIE.document.getElementById("add_filter_select").Value = "tracker_id" objIE.document.getElementById("add_filter_select").dispatchEvent evt ★箇所でエラーとなります。
試したこと
以下の例が公開されていたけれど、この書式でもダメでした。
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
補足情報(FW/ツールのバージョンなど)
修正したソース
Sub ログイン()
Dim objIE As InternetExplorer
Set objIE = New InternetExplorerMedium
objIE.Visible = True
objIE.navigate "https://****"
Call wait(objIE) 'IEを待機
Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
'ここに移動しました
Dim evt As Object
Set evt = objIE.document.createEvent("HTMLEvents")
evt.initEvent "change", True, False
・
・
objIE.document.getElementById("add_filter_select").Value = "tracker_id"
objIE.document.getElementById("add_filter_select").dispatchEvent evt
回答1件
あなたの回答
tips
プレビュー