使用 excel vba 将图像上传到网络

Question

我正在尝试将图像上传到 REST 网页。我可以通过 cURL 调用成功地做到这一点：

curl -u Admin:admin -T C:\temp\wikiTable.jpg http://192.168.0.35:8080/xwiki/rest/wikis/xwiki/spaces/Main/pages/WebHome/attachments/table.jpg

我现在正尝试通过 Excel vba 中的 HTTP Post 实现此目的，但遇到了一些问题。我目前正在这样做：

Const STR_BOUNDARY  As String = "---------------------------123456789abc"
Dim nFile           As Integer
Dim baBuffer()      As Byte
Dim sPostData       As String
Dim sFileName       As String
Dim sUrl            As String
sFileName =  "C:\temp\wikiTable.jpg"  
sUrl =  "http://192.168.0.35:8080/xwiki/rest/wikis/xwiki/spaces/Main/pages/WebHome/attachments/table.jpg"     
'--- read file
nFile = FreeFile
Open sFileName For Binary Access Read As nFile
If LOF(nFile) > 0 Then
    ReDim baBuffer(0 To LOF(nFile) - 1) As Byte
    Get nFile, , baBuffer
    sPostData = StrConv(baBuffer, vbUnicode)
End If
Close nFile
'-- post
Dim HTTPReq As Object
Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1")
HTTPReq.Option(4) = 13056
HTTPReq.Open "Post", sUrl, False
HTTPReq.SetCredentials "Admin", "admin", 0
HTTPReq.setRequestHeader "Content-Type: multipart/form-data;"
HTTPReq.send sPostData
MsgBox (HTTPReq.responseText)

对于 responseText，我不断收到以下错误：

10.4.6 405 Method Not Allowed

The method specified in the Request-Line is not allowed for the resource 
identified by the Request-URI. The response MUST include an Allow header 
containing a list of valid methods for the requested resource.
https://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html#sec10.4.6

知道我做错了什么吗？

Answer 1

我建议您尝试调用方法 "POST" 而不是 "Post"，因为它可能区分大小写。

Answer 2

以下最终奏效：

Private Function PostFile(sUrl As String, sFileName As String, strUserName As String, strPassword As String) As String
    Dim nFile           As Integer
    Dim baBuffer()      As Byte
    Dim sPostData       As String
'--- read file
    Dim adoStream
    Set adoStream = CreateObject("ADODB.Stream")
    adoStream.Mode = 3          ' read write
    adoStream.Type = 1          ' adTypeBinary
    adoStream.Open
    adoStream.LoadFromFile (sFileName)
    adoStream.Position = 0
'--- post
    Dim HTTPReq As Object
    Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    HTTPReq.Option(4) = 13056
    HTTPReq.Open "PUT", sUrl, False
    HTTPReq.setRequestHeader "Authorization", "Basic " + Base64Encode(strUserName + ":" + strPassword)
    HTTPReq.setRequestHeader "Content-Type", "multipart/form-data"
    HTTPReq.setRequestHeader "Content-Length", adoStream.Size
    HTTPReq.send (adoStream.Read(adoStream.Size))
    pvPostFile = HTTPReq.responseText
    Set adoStream = Nothing
End Function

使用 excel vba 将图像上传到网络

Uploading an image to web with excel vba

excel

vba

httprequest

xwiki