TD タグだけを抜くテストプログラム

TD タグだけを抜くテストプログラムを作ります。 Dim objTD As Object 'テーブルオブジェクトの格納用 Set objTD = objIE.document.all.tags("TD") '.tags("TD")でTDタグを抜く
こんな感じで、.tags("TD") でTDのオブジェクトの集合が取れるので、
あとは、カウンターを使って
objTD(n).InnerHTML
や
objTD(n).InnerTEXT
など、配列的に扱い、添え字でアクセスしてます。

テストのソース → http://ken3-info.blog.ocn.ne.jp/objie/2009/02/217_objiedocume_09a9.html