将 XMLHTTP responseText 插入 HTMLDocument 会产生自动化错误答案

【问题标题】：Inserting XMLHTTP responseText to HTMLDocument generates Automation Error将 XMLHTTP responseText 插入 HTMLDocument 会产生自动化错误
【发布时间】：2014-08-21 00:45:39
【问题描述】：

我正在尝试在 VBA 中使用 XMLHTTP 对象来检索 HTML 文档并将其插入到 HTMLDocument 对象中以操作元素。但是我的代码出现了自动化错误。我仔细检查了代码，但找不到任何可能的原因。有人可以帮我解决问题吗？

非常感谢！

VBA 代码：

Sub RetrieveData()

Dim strURL As String
Dim strResponse As String
Dim objResponse As Object
Dim objHttpReq As Object
Dim objHTML As New HTMLDocument

strURL = "http://www.customs.go.jp/toukei/srch/indexe.htm?M=57&   P=1,1,,,,,,,,,,2013,,9,,,,,,,,,,,,,1,,,,,,,,,,,,,,,,,,,,,,"

Set objHttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
objHttpReq.Open "GET", strURL, False
objHttpReq.send

strResponse = objHttpReq.responseText

objHTML.body.innerHTML = strResponse

MsgBox objHTML.body.innerHTML

End Sub

【问题讨论】：

标签： vba xmlhttprequest

【解决方案1】：

而不是尝试设置正文（应该确实有效），因为您可以拥有完整的 html 文档；

Dim objHTMLAs Object
Set objHTML= CreateObject("htmlfile") 

objHTML.open
objHTML.write objHttpReq.responseText
objHTML.Close

【讨论】：

非常感谢您的回复。我现在可以获取 HTML 格式的文档，但是关于 iframe 还有另一个问题。实际上，我需要获取有关 Frame 文档的详细信息，并且我使用了 Iframe 对象的 contentDocument 属性。但结果却是“未指定的错误”。对于内容文档。我想问一下如何提取该链接中的 iframe 文档？