21/04/14 22:43:58.06 bsTwIiw80.net
下記「やりたいこと」のようにhtmlから抽出したいのですが、
下記「前提」があって、どうしたらいいのか分かりません。
なにか方法ありますでしょうか？
--- やりたいこと ---
下記htmlにおいて、"ヘッダ"のすぐ次に存在しているtableタグ内の項目1,2、要素1,2を取得したい
--- 前提 ---
①"ヘッダ"は特定できる
②tableは特定できない
・tableのidや要素から特定できない
・tableの数から特定できない（取得したいtableが何個目なのか分からない）
--- html例 ---
・・・
<h2>ヘッダ</h2>
<table>
<tr><th>項目1</th><th>項目2</th></tr>
<tr><td>要素1</td><td>要素2</td></tr>
</table>
・・・
--- プログラム例（Microsoft Internet Controls、Microsoft HTML Object Libraryは参照設定済み） ---
Dim objIE As New InternetExplorer
objIE.Navigate "URLﾘﾝｸ(***")
Do While objIE.Busy = True Or objIE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
For Each obj In objIE.Document.getElementsByTagName("h2")
If InStr(obj.innerText, "ヘッダ") > 0 Then ヘッダは見つけることができるが、この後どうしたらいいのか・・・
End If
Next obj