ｉｅ操作 フレームのＵＲＬがあってるか取得したい

質問

http://okwave.jp/qa/q8135136.html
こちらのANo.2様のご意見を参考に、フレーム操作について調べているのですが、
サンプルを作ってみたのですが、うまくできません。

サンプルの内容としては、ＵＲＬの中のフレームのオブジェクトを変数に格納し、
その格納したオブジェクトのＵＲＬをメッセージボックスに表示し、
欲しいＵＲＬかどうかを目視で確認したいのですが

Dim objIE As InternetExplorer
Sub Sample001()
Dim myObj As Object
Dim objFr As Object

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True
objIE.navigate "http://masaboo.cside.com/new_html1/ht_sun/frame02.htm"
Stop

Set objFr = objIE.document.frames.Item(1)

MsgBox objFr.document.frames.LocationURL

Set objIE = Nothing
End Sub

MsgBox objFr.document.frames.LocationURL
だと、実行時エラー438になります。
MsgBox objFr.document.LocationURLもMsgBox objFr.LocationURLもダメでした。

私は何か根本的に勘違いをしているような気がしますが、格納したフレームのＵＲＬを表示する方法があれば教えてください。
ご教授よろしくお願いします。

回答No.1

jcctaira · ベストアンサー

bcrtcjxagatさん
こんにちは
Stop以下、次のように変更すればできるかと思います。
--------------------------------------
Set objFr = objIE.document.frames

MsgBox objFr(1).document.URL
--------------------------------------

※LocationURLではエラーになるのでURLを使用しました。
お試し下さい。

お礼

Set objFr = objIE.document.frames
MsgBox objFr(1).document.URL

これでいけいました。
ありがとうございました。大変参考になりました。