>>931
ありがとうございます。
あれから色々試しましたがいくつか問題点があります。

問題１
Dim el As IHTMLElement を削除するとTDが取得出来ず、table丸ごとの取得となります。
問題２
Dim htmlDoc As HTMLDocument　を削除するとエラーが出ます。
問題３
７番目のサンプルを実行するとこの部分がエラーをおこします。
objDOM.body.innerHTML = objXML.responseText

問題１についてtableデータ丸ごとでも取得後必要箇所を抜き出せばいいので用は足せます。
変わらなければそのままいこうと思っていますが相手サーバーへの負担は増えるのでしょうか？

問題２について削除しなければ問題ありませんがxml化時に下記３箇所をどのように記載を変更すればいいでしょうか？
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Set colTable = htmlDoc.getElementsByName("oppai")

問題３について下記の("htmlfile")が原因かと思ったのですがこのままでいいでしょうか？
それとも何かのシート名を入れるのでしょうか？
Set objDOM = CreateObject("htmlfile")

毎度すいませんがよろしくお願い致します。