VBA代码无法上传CSV至Azure ADLS，请求排查及上传指导

原代码的核心问题 #

• HTTP对象版本过旧：MSXML2.ServerXMLHTTP.3.0属于老旧版本，存在兼容性和功能限制，建议使用更稳定的MSXML2.ServerXMLHTTP.6.0
• 二进制文件读取错误：用String类型读取CSV二进制文件会导致编码丢失或字节损坏，应改用Byte数组保存文件原始数据
• 请求头拼写错误：x-ms-blob-type的有效值为BlockBlob（首字母与第二个B均大写），原代码的BLockblob拼写错误会直接导致Azure拒绝请求
• 缺少响应校验：未检查HTTP请求的响应状态，无法确认请求是否成功，也无法排查潜在错误
• SAS Token权限不足：原代码中SAS Token的sp=r仅包含读取权限，根本无法完成文件上传

修正后的完整代码 #

Sub DataUpload_ADLS()
    Dim CSVFilePath As String
    Dim BlobServiceURL As String
    Dim ContainerName As String
    Dim BlobName As String
    Dim SAS_Token As String
    Dim HTTPReq As Object
    Dim FileData() As Byte ' 改用Byte数组存储二进制数据
    Dim UploadURL As String
    
    ' 配置参数
    CSVFilePath = "C:\Users\Name\Desktop\test.csv"
    BlobServiceURL = "https://mystorageaccountname.blob.core.windows.net/"
    ContainerName = "data"
    BlobName = "test.csv"
    SAS_Token = "?sp=rw&st=2023-09-20T22:32:18Z&..." ' 确保包含写入权限（sp=w或sp=rw）
    
    ' 拼接上传URL
    UploadURL = BlobServiceURL & ContainerName & "/" & BlobName & SAS_Token
    
    ' 创建新版HTTP请求对象
    Set HTTPReq = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    ' 读取文件为Byte数组
    If Dir(CSVFilePath) = "" Then
        MsgBox "指定文件不存在：" & CSVFilePath
        Exit Sub
    End If
    Open CSVFilePath For Binary As #1
    ReDim FileData(LOF(1) - 1)
    Get #1, , FileData
    Close #1
    
    On Error GoTo ErrorHandler ' 启用错误捕获
    
    ' 发送PUT请求
    HTTPReq.Open "PUT", UploadURL, False
    HTTPReq.setRequestHeader "Content-Type", "application/octet-stream"
    HTTPReq.setRequestHeader "x-ms-blob-type", "BlockBlob" ' 修正拼写
    HTTPReq.send FileData
    
    ' 校验响应状态
    If HTTPReq.Status = 201 Then
        MsgBox "文件上传成功！"
    Else
        MsgBox "上传失败，状态码：" & HTTPReq.Status & vbCrLf & "响应信息：" & HTTPReq.responseText
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "代码执行出错：" & Err.Description
    If Not HTTPReq Is Nothing Then
        MsgBox "HTTP响应错误：" & HTTPReq.Status & " - " & HTTPReq.responseText
    End If
End Sub

避免无效请求的关键注意事项 #

• 确认SAS Token权限：必须确保SAS Token包含写入权限（sp=w或sp=rw），且有效期未过期
• 校验URL合法性：确保容器名、Blob名无特殊字符，若存在特殊字符需用URLEncode处理后再拼接
• 添加前置验证：读取文件前先检查文件是否存在，避免因无效路径发起无效请求
• 依赖HTTPS请求：Azure存储强制要求HTTPS，禁止使用HTTP发起请求
• 利用响应排查问题：通过HTTP状态码和响应文本快速定位问题（如权限不足、URL错误、文件损坏等）

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