「結論から言うとこの処理は失敗する。実行してみて」
'サンプル4.1.3_ドメインの異なる子フレームへのアクセス
Public Sub getFrame4()
Dim ie As
InternetExplorer
Set ie =
Day2.getIE("クロスドメインの例") 'IE取得
'フレーム1の中身へアクセス
MsgBox ie.document.frames("frame1").document.body.innerHTML
'フレームGoogleへのアクセス
MsgBox ie.document.frames("Google").document.body.innerHTML
End Sub