Excel VBA导入解析JSON报错求助：对象不支持该属性或方法

我来帮你搞定这个问题！这个报错通常是因为VBA原生不支持直接解析JSON，或者你访问JSON节点的方式不对。下面我会一步步给你解决方案，包括两种常用的JSON解析方法，以及针对你的需求（提取日期和SMA数据）的完整代码。

一、核心问题说明 #

VBA本身没有内置的JSON解析器，所以你必须借助外部工具（要么是微软的控件，要么是开源的VBA-JSON模块）。如果跳过这一步直接处理返回的字符串，就会触发“对象不支持该属性或方法”的错误。

二、方案1：使用VBA-JSON模块（推荐，兼容32/64位Office） #

这是最稳定的方法，步骤如下：

1. 准备工作 #

• 打开Excel，按Alt+F11进入VBA编辑器
• 点击菜单栏的「工具」→「引用」，确保勾选「Microsoft Scripting Runtime」和「Microsoft XML, v6.0」
• 点击「插入」→「模块」，将VBA-JSON的代码粘贴进去（你可以在开源平台找到该模块的完整代码，导入后即可使用）

2. 完整代码示例 #

Sub GetAlphaVantageSMA()
    Dim jsonURL As String
    Dim httpObj As MSXML2.XMLHTTP60
    Dim jsonText As String
    Dim jsonObj As Object
    Dim techAnalysis As Object
    Dim dateKey As Variant
    Dim outputRow As Integer
    
    ' 从Sheet2获取API URL（假设URL在A1单元格，可根据实际位置调整）
    jsonURL = ThisWorkbook.Sheets("Sheet2").Range("A1").Value
    
    ' 发送HTTP请求获取JSON数据
    Set httpObj = New MSXML2.XMLHTTP60
    With httpObj
        .Open "GET", jsonURL, False
        .Send
        If .Status <> 200 Then
            MsgBox "请求失败，状态码：" & .Status
            Exit Sub
        End If
        jsonText = .ResponseText
    End With
    Set httpObj = Nothing
    
    ' 解析JSON数据（依赖VBA-JSON的ParseJson函数）
    Set jsonObj = ParseJson(jsonText)
    
    ' 定位到SMA数据所在节点（AlphaVantage返回的结构为"Technical Analysis: SMA"）
    Set techAnalysis = jsonObj("Technical Analysis: SMA")
    
    ' 准备输出到Sheet1（可自行调整目标工作表）
    outputRow = 1
    ThisWorkbook.Sheets("Sheet1").Range("A1:B1").Value = Array("日期", "SMA值")
    
    ' 遍历所有日期和对应的SMA数据
    For Each dateKey In techAnalysis
        outputRow = outputRow + 1
        ThisWorkbook.Sheets("Sheet1").Cells(outputRow, 1).Value = dateKey
        ThisWorkbook.Sheets("Sheet1").Cells(outputRow, 2).Value = techAnalysis(dateKey)("SMA")
    Next dateKey
    
    MsgBox "数据提取完成！"
End Sub

三、方案2：使用Microsoft Script Control（仅兼容32位Office，64位需特殊设置） #

如果不想导入外部模块，可以用ScriptControl，但注意64位Office默认不支持，需要修改项目设置：

1. 准备工作 #

• 打开VBA编辑器，点击「工具」→「引用」，勾选「Microsoft Script Control 6.0」和「Microsoft XML, v6.0」
• 若为64位Office，需在「工具」→「项目属性」→「编译」中选择「x86」平台（否则会提示找不到ScriptControl）

2. 代码示例 #

Sub GetSMAWithScriptControl()
    Dim jsonURL As String
    Dim httpObj As MSXML2.XMLHTTP60
    Dim jsonText As String
    Dim sc As ScriptControl
    Dim jsonObj As Object
    Dim techAnalysis As Object
    Dim dateKey As Variant
    Dim outputRow As Integer
    
    jsonURL = ThisWorkbook.Sheets("Sheet2").Range("A1").Value
    
    ' 获取JSON数据
    Set httpObj = New MSXML2.XMLHTTP60
    With httpObj
        .Open "GET", jsonURL, False
        .Send
        If .Status <> 200 Then
            MsgBox "请求失败：" & .Status
            Exit Sub
        End If
        jsonText = .ResponseText
    End With
    Set httpObj = Nothing
    
    ' 用ScriptControl解析JSON
    Set sc = New ScriptControl
    sc.Language = "JScript"
    Set jsonObj = sc.Eval("(" & jsonText & ")")
    
    ' 访问SMA节点
    Set techAnalysis = jsonObj("Technical Analysis: SMA")
    
    ' 输出数据
    outputRow = 1
    ThisWorkbook.Sheets("Sheet1").Range("A1:B1") = Array("日期", "SMA值")
    For Each dateKey In techAnalysis
        outputRow = outputRow + 1
        ThisWorkbook.Sheets("Sheet1").Cells(outputRow, 1) = dateKey
        ThisWorkbook.Sheets("Sheet1").Cells(outputRow, 2) = techAnalysis(dateKey).SMA
    Next dateKey
    
    Set sc = Nothing
    MsgBox "数据提取完成！"
End Sub

四、常见错误排查 #

如果还是报错，检查这几点：

• URL有效性：确保Sheet2中的URL完整，包含有效的API Key，无多余空格或转义字符
• 节点名称准确性：AlphaVantage返回的节点是"Technical Analysis: SMA"，注意空格和冒号，拼写错误会导致找不到对象
• 库引用正确性：使用VBA-JSON需导入对应模块；使用ScriptControl需勾选正确引用，64位需设置编译平台
• API请求状态：将URL复制到浏览器打开，查看返回的JSON是否正常（比如是否存在API Key无效、请求次数超限等报错）

内容的提问来源于stack exchange，提问作者Yousuf