「こんどはうまくいった!『兄さまなら、見つけてくれると信じてた』というメッセージが表示されたぞ」
'サンプル4.1.2.2_特定フレームの検索
Public Sub getFrame3()
Dim ie As
InternetExplorer
Dim i As Integer
Set ie =
Day2.getIE("フレームの例") 'IE取得
'フレーム数分処理する(Lengthは自然数だが、Indexは0からのため-1する)
For i = 0 To
ie.document.frames.Length - 1
'フレーム名がFrame3の場合に処理
If
ie.document.frames(i).Name = "Frame3"
Then
'ドキュメント中の特定項目の値を取得して表示
MsgBox _
ie.document.frames(i).document.forms("TargetForm").elements("TargetText").Value
Exit For
End
If
DoEvents
Next
End Sub