VBA中web刮取的安全方法

Question

我需要从网站上获取一些价格数据。为了完成这项工作，我使用了以下片段：

With http
.Open "GET", url, False
.send
html.body.innerHTML = .responseText
End With
Set topics = html.getElementsByClassName("sidebar-item-label")
For i = 1 To topics.Length - 1
str = topics(i).href

它是有效的，但我想知道如何在将html response分配给我的变量str之前保护数据。为了避免恶意代码在我的windows机器上运行，我需要验证、恢复和转义响应数据，然后将其安全保存到变量中，并进行进一步的操作，如字符串拆分，将其保存到Excel电子表格中。

有人能帮我吗？你需要更多信息吗？

Answer 1

到目前为止我的代码：

Dim objXmlHTTP as New XMLHTTP60, html as New HTMLDocument
Dim prices as IHTMLElementCollection
With objXmlHTTP
.open "GET", URL, FALSE
.send
html.body.innerHTML = .responseText
End With
Set prices = html.getElementsByClassName("MyClass")

在获得数据之后，我循环遍历集合并搜索特定字符串"；价格；并将价格的数据t/值分配给Excel单元格。因此，为了避免excel执行任何错误的代码，我想在将html数据保存到excel单元格之前验证、恢复和转义数据。