VBAでHTMLからテキストを抜き出す処理

質問

ネットで調べて見様見真似で下記のコードを作成しました。HTMLからテキストを抜き出す処理をしています。（VBAのツール→参照設定で、Microsoft Internet Controls と Microsoft HTML Object Library にチェックを入れています。）
すると上の画像のように、2行以上ある場所が一つのセル内に改行されて挿入されます。それを下の画像のように、1行ずつセル分けしたいのです。VBAは初心者なので、どうかアドバイス頂けないでしょうかm(_ _)m
ちなみに、URLは一つの例に過ぎず、A列が３行だったり５行だったりもします。ただ、A列の抜き値は最大でも16行、B列は8行、C列は4行、D列は2行、E列は1行という法則なので、それにも対応できるようにしたいです。

Sub dom()
Dim ie As InternetExplorer
Dim i As Long

Set ie = CreateObject("internetExplorer.Application")
ie.Visible = True
ie.Navigate "http://db.netkeiba.com/horse/ped/2009105009/"
Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop

Dim htdoc As HTMLDocument
Set htdoc = ie.Document

For i = 0 To 4
Cells(2, i + 1) = htdoc.getElementsByTagName("TD")(i).innerText
Next
End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

oka_me · ベストアンサー

こちらを参考に
【FXの値 .innerTEXTで値を取得後 Splitで分解 UBoundでループ】
http://ken3memo.blogspot.jp/2011/07/ie-fx-innertext-split-ubound.html

実装するとこんな感じでしょうか。。

For i = 0 To 4
tmp = Split(htdoc.getElementsByTagName("TD")(i).innerText, vbCrLf)
For r = 0 To UBound(tmp)
Cells(r + 2, i + 1) = tmp(r)
Next
Next

※tmpはVariantで宣言して下さい

お礼

素晴らしい回答ありがとうございました。