VBA通过POST上传文件编码问题求助：返回500/400错误

问题根源 #

你的两次尝试都存在二进制数据处理错误：

• 第一次将二进制文件字节数组直接拼接到字符串中，VBA字符串为Unicode编码，会导致二进制数据被错误转换，服务器收到的文件损坏，返回500错误。
• 第二次用Input读取二进制文件到字符串，这会把二进制数据当作文本解析，破坏文件结构，服务器识别到空文件，返回400错误。

正确的做法是将整个multipart请求体（边界、请求头、文件二进制数据、结束边界）合并为字节数组后发送，避免字符串和二进制数据的错误转换。

正确实现代码 #

Sub UploadFileWithServerXMLHTTP()
    Dim objHttp As Object
    Dim requestId As String
    Dim fileUploadUrl As String
    Dim accessToken As String
    Dim filePath As String
    Dim boundary As String
    
    ' 替换为你的实际参数
    fileUploadUrl = "你的上传接口地址"
    accessToken = "你的Bearer令牌"
    filePath = "C:\路径\到\你的\文件.xlsx"
    boundary = "----WebKitFormBoundary7MA4YWxkTrZu0gW" ' 确保和Content-Type中的边界一致
    
    ' 生成requestId（假设你的CreateUUID函数已定义）
    Call CreateUUID(requestId)
    
    Set objHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    ' 初始化请求
    objHttp.Open "POST", fileUploadUrl, False
    objHttp.SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
    objHttp.SetRequestHeader "Accept", "application/xml"
    objHttp.SetRequestHeader "Authorization", "Bearer " & accessToken
    objHttp.SetRequestHeader "x-request-id", requestId
    
    ' 1. 读取文件为二进制字节数组
    Dim fileData() As Byte
    Dim fileNum As Integer
    fileNum = FreeFile
    Open filePath For Binary Access Read As #fileNum
        ReDim fileData(LOF(fileNum) - 1)
        Get #fileNum, , fileData
    Close #fileNum
    
    ' 2. 构造multipart头部（字符串转字节数组）
    Dim headStr As String
    headStr = "--" & boundary & vbCrLf & _
              "Content-Disposition: form-data; name=""file""; filename=""" & Dir(filePath) & """" & vbCrLf & _
              "Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" & vbCrLf & _
              vbCrLf ' 注意这里必须有一个空行分隔头和文件数据
    Dim headData() As Byte
    headData = StrConv(headStr, vbFromUnicode) ' 将Unicode字符串转为ANSI字节
    
    ' 3. 构造multipart尾部（字符串转字节数组）
    Dim tailStr As String
    tailStr = vbCrLf & "--" & boundary & "--" & vbCrLf
    Dim tailData() As Byte
    tailData = StrConv(tailStr, vbFromUnicode)
    
    ' 4. 合并所有字节数组：头部 + 文件数据 + 尾部
    Dim totalData() As Byte
    ReDim totalData(UBound(headData) + UBound(fileData) + UBound(tailData) + 2) ' 调整数组大小
    Dim i As Long
    ' 复制头部
    For i = 0 To UBound(headData)
        totalData(i) = headData(i)
    Next i
    ' 复制文件数据
    For i = 0 To UBound(fileData)
        totalData(UBound(headData) + 1 + i) = fileData(i)
    Next i
    ' 复制尾部
    For i = 0 To UBound(tailData)
        totalData(UBound(headData) + UBound(fileData) + 2 + i) = tailData(i)
    Next i
    
    ' 5. 发送字节数组
    objHttp.Send totalData
    
    ' 输出响应结果
    Debug.Print "状态码：" & objHttp.Status
    Debug.Print "响应内容：" & objHttp.ResponseText
    
    Set objHttp = Nothing
End Sub

关键注意事项 #

• 边界一致性：Content-Type中的边界值必须和payload中使用的边界完全一致，包括前缀的--。
• 空行分隔：请求头和文件数据之间必须有一个空行（vbCrLf），这是multipart/form-data格式的强制要求。
• 字节数组合并：所有请求体部分都必须以字节数组形式合并，避免字符串转换导致的二进制数据损坏。
• 文件名编码：如果文件名包含非ASCII字符（如示例中的俄文），可将StrConv的参数改为vbUTF8，确保文件名编码符合服务器预期：headData = StrConv(headStr, vbUTF8)。

内容的提问来源于stack exchange，提问作者Рустам Рысаев