Excel VBA 質問スレ Part41©5ch.io
■ このスレッドは過去ログ倉庫に格納されています
0092デフォルトの名無しさん
2016/05/02(月) 14:44:30.79ID:qnyBKwLuログインボタンを押すマクロですが、一定時間(10〜20時間?)経過後、同じマクロを実行しても
ログインボタンが押せなくなっており、ログインできず処理が中断してかなり困っています。
一度手動でログイン後、再度マクロを実行すると問題なくログインボタンが押せるのようになるのですが、
何が問題なのでしょうか?
Sub ログイン()
Set objie = CreateObject("internetexplorer.application")
objie.Visible = True
objie.Navigate "https://s10.kabu.co.jp/_mem_bin/light/login.asp?/Light/"
Do While objie.Busy = True Or objie.ReadyState <> 4
DoEvents
Loop
objie.Document.All.SsLogonUser.Value = "自分のID"
objie.Document.All.SsLogonPassword.Value = "パスワード"
Dim waitTime As Variant
waitTime = Now + TimeValue("0:00:1")
Application.Wait waitTime
Dim obj As Object 'objie.Document.forms(0).submitでも代替可
For Each obj In objie.Document.getElementsByTagName("input")
If obj.Value = "ログイン" Then
obj.Click
Exit For
End If
Next
End Sub
■ このスレッドは過去ログ倉庫に格納されています