Привет, подскажите, пожалуйста, как загрузить txt файл c данными в SAP post запросом, аналог загрузки данных из текстового файла?
пробовала расширение csv и txt
ниже привожу код, который работает, но вставляет абракадабру в поле вместо числа: "\u365B\u3034\u3030\u3030\u3232\u6E5C\u362C\u3034\u3030\u3030"
Code:
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
также привожу код на питоне, который работает как надо:
Code:
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)'})
подскажите, что я делаю не так и как надо на VBA?
Вход
Регистрация
FAQ пользователя
Поиск
