Excel Web 查询显示完整的 HTML 代码 [关闭]

【问题标题】：Excel Web Query Show Full HTML Code [closed]Excel Web 查询显示完整的 HTML 代码 [关闭]
【发布时间】：2013-11-28 00:57:16
【问题描述】：

有没有人可以使用 Web 查询（或其他自动化 VBA 方式）将页面的完整 html 代码导入 excel 页面？

我需要从<body> 到</body> 的所有内容，但不介意是否有需要整页导入的解决方案。我在网上看了看，但什么都想不出来。

【问题讨论】：

感谢您的输入 :)

标签： vba excel excel-web-query

【解决方案1】：

这是在 VBA 宏中执行此操作的一种方法。 htmlText 对象将包含此 sub 末尾的所有 HTML。

在End Sub之前放一个断点，然后将htmlText对象添加到Watch Window，然后您就可以在Watch Window中看到所有返回的数据并决定如何提取 html 数据以及将其放在 Excel 工作表中的位置等。

Private Sub GetWebsiteHtml_Click()

    Dim x As Long, y As Long
    Dim htmlText As Object

    Set htmlText = CreateObject("htmlFile")

    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://google.com", False
        .send
        htmlText.body.innerHTML = .responsetext
    End With

End Sub

【讨论】：