「演習の1問目はここまで。ついて来れているかしら?」
'サンプル5.1.1_連続画面遷移
Public Sub
navigate1To3()
Dim ie As
InternetExplorer
Dim Anchor As
HTMLAnchorElement
'IE起動
Set ie =
CreateObject("InternetExplorer.Application")
ie.Visible = True
'画面1を開いて待ち受け
ie.Navigate2
"http://macrogirls.net/sample/screen1.html"
Do While ie.Busy Or
ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
Sleep 2000
'動作を見るために2秒待ち(動作上は不要)
'リンクをクリックして画面2へ移動&待ちうけ
For Each Anchor In
ie.document.getElementsByTagName("A")
If
Anchor.innerText = "画面2へ進む" Then
Anchor.Click
Exit For
End
If
Next
Do While ie.Busy Or
ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
Sleep 2000 '動作を見るために2秒待ち(動作上は不要)
'ボタンをクリックして画面3へ移動&待ちうけ
ie.document.forms("TargetForm").elements("toScreen3").Click
Do While ie.Busy Or
ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
End Sub