IE操作におけるVBAでのChildren使用時のオブジェクト変数が設定されていないエラーの対処法

Question

###前提・実現したいこと
スクレイピングの練習をしています。子要素の指定にChildrenを使うやり方を試していますがうまくいきません。

###発生している問題・エラーメッセージ

オブジェクト変数またはWithブロック変数が設定されていません。

###該当のソースコード

<div class="AAA">
  <p>取得したいテキスト1</p>
  <p>取得したいテキスト2</p>
</div>

Dim objIE As InternetExplorer
Set objIE = CreateObject("internetexplorer.application")

'ページ表示処理待ち含む（省略）
MsgBox objIE.document.all("AAA").Children(0).innertext

###試したこと
課題に対してアプローチしたことを記載してください

Classnameで処理

Dim names As IHTMLElementCollection
Set names = objIE.document.getElementsByClassName("AAA")

MsgBox names.Children(0).innertext

オブジェクト変数またはWithブロック変数が設定されていません。

AAAの名前要素がうまく取得できていないのでしょうか。

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

Excel2007

Answer 1

メソッドが単体の要素を返すのか、複数の要素（要素のコレクション）を意識しましょう。

Msgbox 単体要素.innertext
Msgbox 複数の要素(0).innertext '複数の要素の一番目のinnertext

getElementsByClassName は Elements と複数形になってますので複数の要素を返します。該当要素が一つの場合でも、要素が一つだけのコレクションになります。

getElementByIDName は、Element となってますので単体の要素を返します。

コレクションの場合は、複数の要素(0)というように添え字をつけて参照します。

Dim names As IHTMLElementCollection
Set names = objIE.document.getElementsByClassName("AAA")

MsgBox names(0).Children(0).innertext '一番目の"AAA"クラスの子要素の一番目のテキスト