クリックメソッドが動かないのです。
以前に、イベントをブラウザから、OSへ制御を切り替える事「DoEvent」で、動作をクリアしましたがそれ以降で問題なかったのですが、クリックイベントが発生が発生しません。
これまた不思議なのですが、このような時は必ず、DoEventや、MsgBox等をForの前後に、または共に入れると入れないとでまったく違う動きをします。酷い時は再度別ブラウザが起動して、ログイン動作から画面操作が始まったりまします。
クリックのメソッドが無視されてプログラム自体は終了しているかのようです。
Sub デリヘルタウン()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "http://www.XXXX.jp/a/auth" Do While IE.Busy Or IE.ReadyState < READYSTATE_COMPLETE DoEvents Loop IE.document.all("login_id").Value = Range("C5") IE.document.all("password").Value = Range("C6") IE.document.forms(0).submit Application.Wait (Now + TimeValue("00:00:05")) Set objShell = CreateObject("Shell.Application") Set ie2 = objShell.Windows(objShell.Windows.Count - 1) Dim objA As Object For Each objA In ie2.document.all.tags("A") DoEvents If objA.innerText = "何かのテキスト" Then objA.Click Exit For End If Next Set IE = Nothing Application.Wait (Now + TimeValue("00:00:05")) Set ie2 = objShell.Windows(objShell.Windows.Count - 1) ie2.Visible = True For Each objA In ie2.document.all.tags("A") If objA.innerText = "何かのテキスト" Then objA.Click Exit For End If Next Application.Wait (Now + TimeValue("00:00:15")) Set ie2 = objShell.Windows(objShell.Windows.Count - 1) ie2.Visible = True Set input_Radio = ie2.document.getElementsByName("type")(0) input_Radio.Click Set input_Text = ie2.document.getElementsByTagName("input")(6) input_Text.Value = "なんだかんだ" Set input_content = ie2.document.getElementsByTagName("textarea")(0) input_content.Value = Range("B42") Set ie2 = objShell.Windows(objShell.Windows.Count - 1) ie2.Visible = True ie2.document.forms(1).submit Application.Wait (Now + TimeValue("00:00:10")) For Each objA In ie2.document.all.tags("A") DoEvents If objA.innerText = "ログアウト" Then
'ココのクリックイベントが動きません。
objA.Click
Exit For
End If
Next
Set objA = Nothing
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/04/30 02:41