1
我想了解使用vba和winhttp的文件上传过程。使用VBA的基本上传
我试图将文件上传到： https://uploadfiles.io/
在VBA使用下面的代码：
Public Function GetFileBytes(ByVal path As String) As Byte()
Dim lngFileNum As Long
Dim bytRtnVal() As Byte
lngFileNum = FreeFile
If LenB(Dir(path)) Then ''// Does file exist?
Open path For Binary Access Read As lngFileNum
ReDim bytRtnVal(LOF(lngFileNum) - 1&) As Byte
Get lngFileNum, , bytRtnVal
Close lngFileNum
Else
Err.Raise 53
End If
GetFileBytes = bytRtnVal
Erase bytRtnVal
End Function
Sub testLoad()
Dim http
Dim filedata() As Byte
filedata = GetFileBytes("C:\apps\somefile.pdf")
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "https://uploadfiles.io/upload"
http.Open "POST", URL, False
http.setRequestHeader "Content-Type", "multipart/form-data; boundary=---------------------------7e1881e4703b8" 'Add boundary
http.setRequestHeader "Content-Length", 80047 'Add length
http.send filedata
MsgBox http.Status
End Sub
我是一个相当大的小白与网络和WinHTTP工作。使用这段代码，我得到了一个成功的200响应......我想。但我不知道该文件现在在哪里上传。所以这里是我的问题：
1.）我在哪里以及如何设置文件信息上传？
2.）requestHeader中的“boundary =”究竟是什么？我通过观看网络流量来手动设置，但我不知道这意味着什么。
3.）requestHeader中的长度是多少？我可以使用len（filedata）
任何帮助将不胜感激，谢谢。