如何在VBA中正确发送POST NVP API请求？

你的代码核心问题是Content-Type请求头设置错误，NVP（名称值对）格式的POST请求必须使用application/x-www-form-urlencoded类型，而非text/plain——服务器无法正确解析text/plain格式的参数，这才导致了"Account was not present in the request"的错误。

以下是修正后的完整代码，附带关键注意事项：

Dim req As New MSXML2.XMLHTTP60
Dim postData As String

' 1. 构建NVP参数，注意：如果参数含特殊字符（空格、&、=等），必须用URLEncode编码
postData = "Code=" & URLEncode("12345") & _
           "&Amount=" & URLEncode("100") & _
           "&Account=" & URLEncode("user.......") ' 替换为实际合法的Account值

' 2. 初始化请求
req.Open "POST", "https://somewebsite.com/vpc", False

' 3. 设置正确的请求头
req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
req.setRequestHeader "Accept", "application/xml"

' 4. 发送请求
req.send postData

' 5. 输出响应
Debug.Print req.responseText

关键注意事项： #

• 必须设置正确的Content-Type：application/x-www-form-urlencoded是HTTP表单提交的标准类型，服务器会按此规则解析POST体中的键值对。
• 参数编码：如果参数值包含空格、中文、&、=等特殊字符，一定要用URLEncode函数处理，避免参数被截断或解析错误。VBA中没有内置的URLEncode，可以自己实现一个：

  Function URLEncode(str As String) As String
      Dim bytes() As Byte
      bytes = StrConv(str, vbUTF8)
      Dim i As Integer
      Dim hexStr As String
      For i = LBound(bytes) To UBound(bytes)
          hexStr = hexStr & "%" & Hex(bytes(i))
      Next i
      URLEncode = hexStr
  End Function
  

• 检查参数匹配度：确认API要求的参数名称是否和你传入的一致（部分API对大小写敏感，比如要求account而非Account），参数值是否符合API的格式要求。
• 异步/同步请求：示例中用的是同步请求（Open方法第三个参数为False），如果需要异步处理，可设为True并结合OnReadyStateChange事件。

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