如何在VBA中使用API将文件上传到BOX中

Sub UploadFileToBox()
    Dim url As String
    Dim apiKey As String
    Dim filePath As String
    Dim fileName As String
    Dim fileContent() As Byte
    Dim httpReq As Object
    
    ' 设置BOX的API密钥
    apiKey = "YOUR_API_KEY"
    
    ' 设置要上传的文件路径和文件名
    filePath = "C:\Path\To\Your\File"
    fileName = "YourFileName.ext"
    
    ' 读取文件内容
    Open filePath For Binary Access Read As #1
    ReDim fileContent(LOF(1) - 1)
    Get #1, , fileContent
    Close #1
    
    ' 创建HTTP请求对象
    Set httpReq = CreateObject("MSXML2.XMLHTTP")
    
    ' 设置请求URL
    url = "https://api.box.com/2.0/files/content"
    
    ' 设置请求方法为POST
    httpReq.Open "POST", url, False
    
    ' 设置请求头中的Authorization字段
    httpReq.setRequestHeader "Authorization", "Bearer " & apiKey
    
    ' 设置请求体为文件内容
    httpReq.send fileContent
    
    ' 获取响应内容
    MsgBox httpReq.responseText
End Sub