Повреждается файл при загрузке на Sharepoint через VBA

Sub UploadFileToSharePoint2()
 
Dim fileName As String
Dim filePath As String
Dim sharePointURL As String
Dim objHTTP As Object
 
'Set the file path and SharePoint URL
fileName = "Имяфайла.xlsx"
filePath = "Путь к файлу" & fileName
 
sharePointURL = "https://SharepointURL" & fileName
 
'Create an instance of the MSXML2.XMLHTTP object
' Примерно отсюда и ниже для меня конструкции малопонятные
 
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
 
'Open the HTTP request
objHTTP.Open "PUT", sharePointURL, False
 
'Set the request headers
'objHTTP.setRequestHeader "Content - Type", "application / octet - stream"
'objHTTP.setRequestHeader "If - None - Match", " * "
objHTTP.setRequestHeader "Content-Type", "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
objHTTP.setRequestHeader "If-None-Match", "*"
objHTTP.setRequestHeader "X-FORMS_BASED_AUTH_ACCEPTED", "f"
objHTTP.setRequestHeader "Content-Length", CStr(FileLen(filePath))
 
'Send the file data
 
'Send the file data - ИСПРАВЛЕННЫЙ ВАРИАНТ 1 (с ADODB.Stream)
Dim stream As Object
Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 ' adTypeBinary
stream.Open
stream.LoadFromFile filePath
objHTTP.Send stream.Read
stream.Close
 
'objHTTP.send CreateObject("Scripting.FileSystemObject").OpenTextFile(filePath, 1).ReadAll
 
'Check the response status
If objHTTP.Status = 200 Or objHTTP.Status = 201 Then
    MsgBox "File uploaded successfully!"
Else
    MsgBox "Error uploading file. Status: " & objHTTP.Status
End If
 
'Clean up
Set objHTTP = Nothing
End Sub