Dim formData        As String
Dim fileSize        As Long
Dim file            As String
Dim filePath        As String
Dim boundary        As String
filePath = "D:\Макросы\WebSAPtest\PY.csv"
file = "PY.csv"
' Получение размера файла
fileSize = FileLen(filePath)

' Генерация случайной границы
boundary = "----WebKitFormBoundary" & GenerateBoundary()

formData = "--" & boundary & vbCrLf
formData = formData & "Content-Disposition: form-data; name=""updownbase64in""" & vbCrLf & vbCrLf
formData = formData & vbCrLf
formData = formData & "--" & boundary & vbCrLf
formData = formData & "Content-Disposition: form-data; name=""updownchunkstatusin""" & vbCrLf & vbCrLf
formData = formData & vbCrLf
formData = formData & "--" & boundary & vbCrLf
formData = formData & "Content-Disposition: form-data; name=""updownfilesize""" & vbCrLf & vbCrLf
formData = formData & fileSize & vbCrLf
formData = formData & "--" & boundary & vbCrLf
formData = formData & "Content-Disposition: form-data; name=""LOCALFILE1""; filename=" & file & "" & vbCrLf
formData = formData & "Content-Type: application/octet-stream""" & vbCrLf & vbCrLf
formData = formData & ReadFileContent(filePath) & vbCrLf
formData = formData & "--" & boundary & "--" & vbCrLf

' Отправьте запрос
xmlHttp.Open "POST", "http://" & sap_web_server & link & "post", False
xmlHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
xmlHttp.setRequestHeader "Referer", "http://" & sap_web_server_forDownload & "/sap(" & link_token & ")/bc/gui/sap/its/webgui?charset=UTF-8"
xmlHttp.send formData

with open(os.path.join(input_folder, 'exceptions.txt'), 'rb') as exceptions_file:
    r=session.post(f"http://{sap_web_server}{link}post",
        files={'exceptions.txt': exceptions_file},
        params={'SEC_SESSTOKEN': sessiontoken,
                'updownchunkstatusin': '',
                'updownbase64in': '',
                'LOCALFILE1': '(binary)'})