VBA IE操作　- 孫フレームの要素を取得したい

社内イントラサイトのHTMLの孫フレーム内の要素をを取得したく、
コードを書きましたが、孫フレーム数が取得できません。

▲では、正常にフレーム数が出力されますが（３と表示される）、
■では、フレーム数が取得できません（０と表示される）
エラーは特に発生しません。

考えられる要因はなんでしょうか。

######VBAコード

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Test()

Dim ie As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim HTMLFrameDoc As HTMLDocument        '子フレーム
Dim HTMLFrameDocWithin As HTMLDocument        '孫フレーム

Set ie = New InternetExplorerMedium

    ie.Visible = True
    ie.navigate "社内イントラURL"

Call waitIE(ie:=ie)
    Sleep 1000

Set HTMLDoc = ie.document

▲    Debug.Print HTMLDoc.frames.Length   '子フレームの数を数える

Set HTMLFrameDoc = HTMLDoc.frames(1).document

■    Debug.Print HTMLFrameDoc.frames.Length      '孫フレームの数を数える

End Sub

######HTML

<html>
 <head>...</head>
 <frameset>
  <frame name ="a">...</frame>
  <frameset>
   <frame name ="b">...</frame>
   <frame name ="c">...</frame>
  </frameset>
  <frame name ="d">...</frame>
 </frameset>
</html>

行動規範の内容に同意します

回答1件

ベストアンサー

HTMLDoc.framesは一番外側の<frameset>タグ内のオブジェクトです。
HTMLDoc.framesが返すのは、順番に
・HTMLDoc.frames(0) 最初の<frame>
・HTMLDoc.frames(1) その下の<frameset>
・HTMLDoc.frames(2) 最後の<frame>
です。
これを見ると、HTMLDoc.frames(1)は、frameではなくframesetです。
このため、HTMLDoc.frames(1)のフレーム数（これが孫フレーム数）を返すには、
HTMLDoc.frames(1).document.frames.Length ではなく、
HTMLDoc.frames(1).frames.Length でどうでしょう。