Excel VBA跨Mac/Windows发送POST请求遇Error 429问题求助

问题原因 #

Windows上的MSXML2.ServerXMLHTTP是ActiveX组件，Mac版Excel VBA不支持ActiveX对象的创建，所以执行CreateObject("MSXML2.ServerXMLHTTP")时会抛出Error 429。要实现Mac和Windows双平台兼容，必须根据操作系统选择对应的HTTP请求对象，并调整请求处理逻辑。

修复后的完整代码 #

Sub SendRequestAndGetToken()
    Dim objRequest As Object
    Dim url As String
    Dim email As String
    Dim password As String
    Dim postData As String
    Dim responseText As String
    Dim jsonResponse As Object
    Dim token As String
    Dim isMac As Boolean
    
    ' 判断当前系统是否为Mac
    isMac = (Application.OperatingSystem Like "*Mac*")
    
    ' 替换为实际的API地址
    url = "API_SERVICE"
    
    ' 从指定单元格读取账号密码
    email = ThisWorkbook.Sheets("Authentication").Range("B1").Value
    password = ThisWorkbook.Sheets("Authentication").Range("B2").Value
    
    ' 构造JSON格式的POST参数
    postData = "{""email"":""" & email & """,""password"":""" & password & """}"
    
    ' 根据系统创建兼容的HTTP请求对象
    If isMac Then
        ' Mac平台使用原生XMLHTTPRequest
        Set objRequest = CreateObject("XMLHTTPRequest")
    Else
        ' Windows平台使用MSXML2的稳定版本
        Set objRequest = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    End If
    
    ' 使用同步请求（跨平台兼容性更强，避免异步等待的差异）
    objRequest.Open "POST", url, False
    
    ' 设置Content-Type为JSON格式
    objRequest.setRequestHeader "Content-Type", "application/json"
    
    ' 发送POST请求
    objRequest.Send postData
    
    ' 获取API响应内容
    responseText = objRequest.responseText
    
    ' 解析JSON响应（需确保已导入JsonConverter模块）
    Set jsonResponse = JsonConverter.ParseJson(responseText)
    
    ' 检查并提取Token
    If jsonResponse.Exists("token") Then
        token = jsonResponse("token")
        MsgBox "Token: " & token
    Else
        MsgBox "登录失败，请检查账号密码是否正确。"
    End If
    
    ' 释放对象，避免内存泄漏
    Set objRequest = Nothing
    Set jsonResponse = Nothing
End Sub

核心修改说明 #

• 跨平台对象适配：通过Application.OperatingSystem检测系统，Mac使用XMLHTTPRequest（非ActiveX），Windows使用指定版本的MSXML2.ServerXMLHTTP.6.0（比无版本号更稳定）
• 切换同步请求：异步请求在Mac和Windows上的回调逻辑差异大，同步请求能减少兼容性问题，适合简单的认证场景
• 优化JSON判断：用jsonResponse.Exists("token")替代原判断，更准确检测响应中是否存在Token字段
• 添加对象释放：显式释放HTTP对象和JSON对象，避免长期运行导致内存占用过高

注意事项 #

• Mac版Excel需要开启“信任对VBA工程对象模型的访问”：打开Excel偏好设置 → 安全性与隐私 → 宏安全性，勾选对应选项
• 确保已将JsonConverter模块导入到VBA工程中，否则JSON解析部分会报错

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