「Length属性で要素数を取得できる。これを使ってカウンタをインクリメントさせつつループする」
'サンプル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