如何将网页(代码)传输到VBA中的字符串变量



我在Windows XP上使用Excel 2003。我尝试使用或调整的所有引用 HTML 的代码都不起作用,因为它可能是为较新版本编写的。

我在这个阶段正在做什么通过单击Excel中的链接,我正在发送YouTube API请求,该请求将激活浏览器(Google Chrome(,在该浏览器中,我将结果作为网页上的文本(JSON数据(获得。我复制网页的内容并将其粘贴到Excel中,Excel以每个单元格一行的格式导入它。我创建了一个宏来"提取"所有数据,每列一个属性到一个范围,并将数组作为分隔文本。宏使用的时间是每个文件大约 2-3 秒,最多 50 个条目,这可能会减少,因为只有一部分数据对我有用,并且也不需要复制多个此类文件的选项。

我想做什么
我想绕过激活浏览器并在将 JSON 数据粘贴到 Excel 之前复制 JSON 数据。我已经看到JavaScript(Parse(做了类似的事情,但我不知道如何在我的情况下使用它。
所以,到目前为止,我实际上没有什么可以提供的(它可能与Microsoft HTML对象库有关,Innerhtml...WebQuery不起作用(,但如果有人能指出我正确的方向,我将不胜感激,并努力进一步调查。

我想从Excel运行一个宏,它将遵循YouTube API请求的超链接,并将结果(JSON数据(粘贴到ActiveSheet的A列中,绕过浏览器。

或者为了简化:我想将文本从文件 https://www.w3.org/TR/PNG/iso_8859-1.txt 粘贴到Excel中的ActiveSheet,或Word文档,或使用VBA绕过浏览器的变体变量。我不知道从哪里开始寻找。

例如:

Sub Test()
Dim sUrl As String
sUrl = "https://www.w3.org/TR/PNG/iso_8859-1.txt"
With CreateObject("Msxml2.ServerXMLHTTP")
.Open "GET", sUrl, False
.send
Debug.Print .responseText
Debug.Print .getAllResponseHeaders
End With
End Sub

最新更新