本文介绍如何使用VBA通过AJAX获取JSON数据并进行解析。首先，创建了一个名为getWebData的Function，利用XMLHTTP对象从指定URL获取网络数据。然后，通过创建HTML文件对象和执行JavaScript来解析JSON数据，并将结果填充到Excel单元格中，例如城市名、城市ID、温度等。
JSON解读_20191130223712.png
第一步，创建从网络获取数据的Function：
'-----------------------------------------------
'获取网络Json数据(测试成功)
'-----------------------------------------------
Function getWebData(ByVal URL As String, Optional ByVal Method As String = "GET", Optional ByVal ReturnType As String = "Text", Optional ByVal Async As Boolean = False, Optional ByVal Username As String = "", Optional ByVal Password As String = "")
'处理变量
Method = IIf(UCase(Method) = "GET", "GET", "POST")
'创建对象
Dim xmlHttp As Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
'Set xmlHttp = CreateObject("Msxml2.ServerXMLH
最低0.47元/天 解锁文章
7019
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
