ステップインなら可能

マクロ実行時における完全稼動

この様な手順で行いたい意向です。
マクロを実行すると出来なくて、ステップインだと出来る理由の教示依頼です。

【マクロ実行】
①IEから指定のページに飛ぶ
②ENTERを押す
③IDを入力する
④PASSを入力する
⑤ログインを押す

発生している問題・エラーメッセージ

エラーメッセージ

ありませんが、③から動作しません。③の画面から止まったままです。

### 該当のソースコード

```ここに言語名を入力
Dim objie As InternetExplorer
Set objie = CreateObject("InternetExplorer.Application")

 objie.Visible = True

  objie.Navigate "https://www."

  Call IEWait(objie)
  Call WaitFor(3)
  
Dim objEnter As Object

 For Each objEnter In objie.document.getElementsByTagName("a")
  If InStr(objEnter.outerHTML, "asp") > 0 Then
   objEnter.Click
    Call WaitFor(3)
 
   Exit For
 
 End If

Next

Dim idnumber As String
Dim passnumber As String

 idnumber = "111"
 passnumber = "000"
 
Dim objtag1 As Object
Dim objtag2 As Object
Dim objsubmit As Object

 For Each objtag1 In objie.document.getElementsByTagName("input")
  If InStr(objtag1.outerHTML, """text""") > 0 Then
   objtag1.Value = idnumber
    Call WaitFor(3)
   
   Exit For
   
  End If
  
Next
  
  For Each objtag2 In objie.document.getElementsByTagName("input")
   If InStr(objtag2.outerHTML, """password""") > 0 Then
    objtag2.Value = passnumber
     Call WaitFor(3)
     
   Exit For
   
  End If

Next
    
 For Each objsubmit In objie.document.getElementsByTagName("input")
  If InStr(objsubmit.outerHTML, """submit""") > 0 Then
   objsubmit.Click
    Call WaitFor(3)

   Exit For
  
  End If

Next



  End Sub

Function IEWait(ByRef objie As Object)

 Do While objie.Busy = True Or objie.readyState <> 4
    DoEvents
 Loop

End Function

Function WaitFor(ByVal second As Integer)

Dim futuretime As Date

 futuretime = DateAdd("s", second, Now)
  While Now < future
   DoEvents
 
 Wend
 
End Function

試したこと

デバックでステップインしていくと、⑤まで全て完了できます。

補足情報（FW/ツールのバージョンなど）

上段、Navigate以降のアドレスに関しては社外秘内容なので、告知ができません。
告知が出来ない状態で、何故出来ないのかお伺いする事が心苦しいのですが、
何卒、お力添え頂けないでしょうか。
よろしくお願い致します。

行動規範の内容に同意します

回答1件

IE待ち時間処理に以下を使用してみてください。

VBA
1Sub IEWait(ByRef ie As Object)
2    
3    Dim timeout As Date
4    Dim cnt As Integer
5    
6    timeout = DateAdd("s", 50, Now())
7    Do
8        '下記ステータス連続30回一致
9        If ie.Busy = False And ie.readyState = 4 Then 'READYSTATE_COMPLETE = 4
10            DoEvents: DoEvents
11            cnt = cnt + 1
12            If cnt >= 30 Then
13                Exit Do
14            End If
15        End If
16
17        'タイムアウトチェック
18        If timeout < Now() Then Exit Sub
19    Loop
20    
21    timeout = DateAdd("s", 10, Now())
22    Do While ie.Document.readyState <> "complete"
23        DoEvents: DoEvents
24        If timeout < Now() Then Exit Do
25    Loop
26End Sub