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

http://oshiete.goo.ne.jp/qa/8135136.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/frame0 …
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 回答日時： 2013/09/15 15:10

bcrtcjxagatさん

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

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

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

この回答へのお礼

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

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

お礼日時：2013/09/15 15:16