「それではダメ。画面遷移した結果、その部品が存在しなかった場合に何らかの処理をするかもしれない」
'サンプル4.2.7_その他の待ちうけ方法
Public Sub waitFrame3()
Dim ie As
InternetExplorer
'IE起動→フレーム待ちうけテスト画面に遷移
Set ie =
CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2
"http://macrogirls.net/sample/frame.html"
'待ちうけ
Do
Err.Clear
On
Error Resume Next
'フォームに値をセット
ie.document.frames("Frame3").document _
.forms("TargetForm").elements("TargetText").Value =
"ぼたもち おはぎ 違い"
DoEvents
Debug.Print Err.Number
Loop Until Err.Number =
0
End Sub