myObjにタグを格納してループはできない？

質問

MSXML2.XMLHTTPの時は、
myObjにタグを格納してループはできないのでしょうか？

Sub test()
Dim objIE As Object
Dim myObj As Object

Set objIE = CreateObject("MSXML2.XMLHTTP")
objIE.Open "GET", "http://○○.html", False
objIE.send

For Each myObj In objIE.Document.all.tags("p")

Next

Set objIE = Nothing
End Sub

上記だと実行時エラー438になります。

Set objIE =CreateObject("InternetExplorer.Application")
でループしないとダメでしょうか？

Set objIE =CreateObject("InternetExplorer.Application")
は時間がかかるので、できれば
Set objIE =CreateObject("MSXML2.XMLHTTP")
でやりたかったのですが、タグを格納できないのでしょうか？

回答No.1

kumatti1 · ベストアンサー

リンク先は、WinHTTPですがXMLHTTPでも同じです。
ご参考

参考URL：

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsWinHTTP3.html

お礼

ありがとうございます。