-2

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

我需要从<body>to 到的所有东西，</body>但不介意是否有需要整页导入的解决方案。我在网上看得很清楚，但什么都想不出来。

4

1 回答 1

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
于 2013-11-28T04:51:15.583 回答