Question

我正在尝试在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

Answer 1

您可以使用完整的html文档，而不是尝试设置正文（应该可以正常工作）;

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

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

将XMLHTTP responseText插入HTMLDocument会生成自动化错误

1 个答案: