load files whit excel vba

Hi Jay.

I asked because I found the following but I do not know if is complete:

Public Sub DB_PutFile(FileName As String)

Dim req As MSXML2.ServerXMLHTTP60

Dim strFile As String

Dim Pos1 As Integer

Dim Pos2 As Integer

Dim arg As String

    Set req = New MSXML2.ServerXMLHTTP60

    strFile= ReadBinary(FileName)

    arg = "{""path"":""/" & FileName & """,""mode"":{"".tag"":""overwrite""},""autorename"":false,""mute"":true}"

    req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False

    req.setRequestHeader "Authorization", "Bearer xxxxxxxxxxxxxxxx"

    req.setRequestHeader "Content-Type", "application/octet-stream"

    req.setRequestHeader "Content-length", Len(Result)

    req.setRequestHeader "Dropbox-API-Arg", arg

    req.setRequestHeader "User-Agent", "api-explorer-client"

    req.send strFile

    If req.Status = 200 Then

        Debug.Print req.responseText

    Else

'MsgBox req.Status & ": " & req.statusText

        Debug.Print req.responseText

    End If

End Sub

Can you help me?

Best regards.