2013-12-14 37 views
1

我想在VBA中使用XMLHTTP對象來檢索HTML文檔並將其插入到用於操作元素的HTMLDocument對象。但我的代碼得到了自動化錯誤。我雖然檢查了代碼,但找不到任何可能的原因。有人可以幫我解決這個問題嗎?插入XMLHTTP responseText到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 

回答

1

,而不是試圖定身(這應該真正的工作),你有一個完整的HTML文檔即可;

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

objHTML.open 
objHTML.write objHttpReq.responseText 
objHTML.Close 
+0

非常感謝您的回覆。我現在可以在HTML中獲取文檔,但是還有一個關於Iframe的問題。其實我需要獲取有關Frame文檔的詳細信息,並使用Iframe對象的contentDocument屬性。但結果卻是「未指定的錯誤」。爲contentDocument。我想問一下如何在該鏈接中提取Iframe文檔? – ECONVBA