IE+VBAで仕事を効率化 Webページの表（TABLE）をセルに取り込む

IE＋VBAでWebシステムを自動操作するときのノウハウ～Webページの表が
タグで作られているなら、以下のコードで表の内容をセルへゲットできるよ。

' 　j : row counter 　　i : line counter 
j=0
  For Each objTBL In objTBL.document.Frames("bodys").document.all.tags("TABLE")
    For Each objTableItem in objTBL.all
       Select Case objTableItem.tagName
       Case "TR","TD","TH"
         Select Case objTableItem.tagName
           Case "TR"
             j = J+1
             I = 0
           Case "TD","TH"
             i = i + 1
             WorkSheet(your-sheet-name).Cells(j,I).Value = objTableItem.innertext
         End Select
       End Select
     Next
   Next

やればできる。時間はかかるけど、でも次に繋がる。そのときは、楽できるはず。それを信じて・・・。　
私のVBAバイブルは、大村あつしさんの本。とりわけ、Windows APIを活用する本は秀逸。図書館で何回借りたことか。先日、図書館に行ったら、古い本のためか、本棚から姿を消していた。残念、いい本は内容が古くなっても、そのエッセンスは不滅で、いつの時代でも通用するのに・・・。 でも新しいヴァージョンが出ていました。コレですよ、コレ。最新化されたんですね。凄い！