带凭据的VBA HttpWebRequest：云服务数据获取技术问询

没问题，我来帮你梳理这段VBA代码的完善和排查思路。你需要通过VBA调用云服务API获取数据，先把你现有的代码整理出来，再一步步分析优化：

你当前的代码 #

Option Explicit
Sub Test()
    Call GetHTTPResult("https://venice.unit4.com/WebConnect/api/ZZKlesserRob/2017/Balance/GetBalance?AccountNumber=604&BeginMonth=1&EndMonth=1", "username", "password")
End Sub
Function GetHTTPResult(sURL As String, Optional username As String, Optional password As String) As String
    Dim XMLHTTP As Object, sResult As String
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    username = "dummy..."
    ' 这里缺少请求发送、身份验证和结果处理的逻辑
End Function

代码完善与排查要点 #

1. 修正URL中的转义字符 #

你URL里的&是HTML转义字符，VBA中直接使用&即可，否则会导致API解析参数错误。修正后的URL应为：
https://venice.unit4.com/WebConnect/api/ZZKlesserRob/2017/Balance/GetBalance?AccountNumber=604&BeginMonth=1&EndMonth=1

2. 完善身份验证逻辑 #

如果该API使用Basic身份验证，需要调用SetCredentials方法传递用户名和密码。另外要替换掉你代码里的"dummy..."为实际的账号信息：

' 定义WinHttp常量（避免未引用库的报错）
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0

' 在Open方法后添加身份验证
XMLHTTP.Open "GET", sURL, False
If username <> "" And password <> "" Then
    XMLHTTP.SetCredentials username, password, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
End If

3. 添加请求发送与结果处理 #

必须调用Send方法发送请求，同时要检查响应状态码确保请求成功，还要添加错误处理避免程序崩溃：

4. 完整优化后的代码 #

Option Explicit

Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0

Sub Test()
    ' 修正URL的转义字符，替换为实际用户名密码
    Dim response As String
    response = GetHTTPResult("https://venice.unit4.com/WebConnect/api/ZZKlesserRob/2017/Balance/GetBalance?AccountNumber=604&BeginMonth=1&EndMonth=1", "your_real_username", "your_real_password")
    ' 可以在这里输出结果到单元格或消息框
    MsgBox response
End Sub

Function GetHTTPResult(sURL As String, Optional username As String, Optional password As String) As String
    Dim XMLHTTP As Object, sResult As String
    
    ' 错误处理机制
    On Error GoTo ErrorHandler
    
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' 初始化GET请求（同步模式）
    XMLHTTP.Open "GET", sURL, False
    
    ' 身份验证（如果需要）
    If username <> "" And password <> "" Then
        XMLHTTP.SetCredentials username, password, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    End If
    
    ' 发送请求
    XMLHTTP.Send
    
    ' 检查响应状态
    If XMLHTTP.Status = 200 Then
        ' 获取响应文本，若存在编码问题可添加转换逻辑
        sResult = XMLHTTP.ResponseText
        ' 示例：UTF-8编码转换 sResult = StrConv(XMLHTTP.ResponseBody, vbUnicode)
    Else
        sResult = "请求失败：状态码" & XMLHTTP.Status & "，描述：" & XMLHTTP.StatusText
    End If
    
    GetHTTPResult = sResult

Cleanup:
    ' 释放对象
    Set XMLHTTP = Nothing
    Exit Function

ErrorHandler:
    sResult = "运行错误：" & Err.Description
    GetHTTPResult = sResult
    Resume Cleanup
End Function

5. 常见排查方向 #

• API可用性验证：先在浏览器中访问修正后的URL，若需要验证则输入用户名密码，确认是否能返回正常的JSON/XML数据，排除API本身的问题。
• 组件可用性：若报错“找不到WinHttp.WinHttpRequest.5.1对象”，可尝试替换为MSXML2.XMLHTTP.6.0，不过WinHttp对HTTPS和身份验证的支持更稳定。
• 网络限制：如果是企业网络，可能需要设置代理，添加代码：XMLHTTP.SetProxy 2, "代理地址:端口"。
• 身份验证方式：若API使用Bearer Token而非Basic Auth，需修改为添加请求头：XMLHTTP.SetRequestHeader "Authorization", "Bearer " & your_token。

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