'サンプル4.1.2.1_特定フレームの検索
Public Sub getFrame2()
Dim ie As
InternetExplorer
Dim fra As
HTMLFrameElement
Set ie =
Day2.getIE("フレームの例") 'IE取得
'コレクション内のフレームに対して逐次処理
For Each fra In ie.document.frames
'フレーム名(frameset側の属性)がFrame3の場合に処理
If fra.Name =
"Frame3" Then
'ドキュメント中の特定項目の値を取得して表示
MsgBox
fra.document.forms("TargetForm").elements("TargetText").Value
Exit For
End
If
DoEvents
Next
End