document.getElementByIdについて (ID:89038)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ガッ様 魔界の仮面弁士様 ご指導ありがとうございました。具体的な記述を手探りでためしながら、やっと ここまでたどり着きました。 Dim objDocument As Object Dim objTarget As Object Dim objInput As Object '接続 .WebBrowser1.Navigate2 "xxxxxxxxxxxxxxxxxxxxx" Do While .WebBrowser1.Busy Or .WebBrowser1.ReadyState <> 4 DoEvents Loop ' '更新ボタンを探してValue="更新"ならClick Set objDocument = .WebBrowser1.Document Set objInput = objDocument.getElementsByTagName("INPUT") For Each objTarget In objInput If objTarget.Value = "更新" Then objTarget.Click Exit For End If Next ' で更新ボタンを押すことは出来ました！！！！ありがとうございます。 が・・・・・・・・・。 こまったことに、この後、HTML内のJAVASCRIPTのCONFIRM()で確認ダイアログが 表示されます。（更新しますか？のメッセージで[OK]ボタンがフォーカス状態） ここでまたENTERをたたく必要が出てきました。 ・・・・・ ・・・・・ Next 'の後に Sleep 1500 SendKeys "{ENTER}" .WebBrowser1.Stop .WebBrowser1.Visible = False End With Unload Me としてみましたがENTERが送れていません。 というか、確認ダイアログのＯＫをクリックするまでは、 .WebBrowser1.Stop .WebBrowser1.Visible = False も実行されませんので、おそらくVB自体が、確認ダイアログが表示された時点 で停止しているのでしょうか。（Sleep 1500 の前かもわかりません） なにからなにまで頼りっぱなしで申し訳ありませんが、もう少しお教え願えな いでしょうか。よろしくお願いします。