ブラウザに表示されている複数のフレームのデータを取得するには？ (ID:83157)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 色々試した結果、確実にフレーム数を取れたのですが、肝心の表示データ の取得法が分かりません。 Dim objIE As Object Dim objDOC As IHTMLDocument Dim objFRAME As FramesCollection Dim pintIdx As Integer Dim pvar() As Variant Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://***.html" ' objIE.Visible = True Do DoEvents Loop Until objIE.Busy = False Set objFRAME = objIE.Document.frames List1.Clear For pintIdx = 0 To objFRAME.length - 1 ReDim Preserve pvar(pintIdx) pvar(pintIdx) = objFRAME.Item(pintIdx) Set objDOC = objFRAME(pintIdx).Document List1.AddItem objDOC Next FramesCollectionには、lengthとItemの2つのメンバがあるようですが、 Itemの使い方が分かりません。(試していてFor文の中は変な文ばかりですが) lengthの分、インデックスがあるようですが、objDOCのオプジェクト の中身はどう取得すればよいでしょうか？ 未熟者(ソースで分かりますね・・)ですみませんが、よろしくお願いします。