这里提出的问题:如何使用VBA从Excel向服务器发送HTTP POST请求?几乎正是我要找的内容,除了我正在尝试向服务器发送多个文件。我进一步搜索并找到如何使用VBA通过HTTP post上传zip文件?这也不错, 但相当令人沮丧 - 看起来需要大量工作(不只是在这里创建HTML表单...)。
这里的选项2:http://www.motobit.com/tips/detpg_post-binary-data-url/(如上面SO问题所述)似乎很好用,但由于我使用JS和CSS,我不知道如何在示例中创建FormData(要发送到服务器的二进制文件)。
请问有谁能帮助我吗?实质上,我想通过VBA从Excel内部通过HTTP_POST将3-6个文件发送到预期接收表单数据的Web服务器上的PHP脚本,例如。处理此事的HTML表单如下:
这里的选项2:http://www.motobit.com/tips/detpg_post-binary-data-url/(如上面SO问题所述)似乎很好用,但由于我使用JS和CSS,我不知道如何在示例中创建FormData(要发送到服务器的二进制文件)。
请问有谁能帮助我吗?实质上,我想通过VBA从Excel内部通过HTTP_POST将3-6个文件发送到预期接收表单数据的Web服务器上的PHP脚本,例如。处理此事的HTML表单如下:
<form action="upload_file.php" method="post" enctype="multipart/form-data">
<input name="userfile[]" type="file" /><br />
<input name="userfile[]" type="file" /><br />
<input name="userfile[]" type="file" /><br />
<input type="submit" />
</form>
预先感谢大家。
编辑 - 2012年8月2日
我仍在努力解决这个问题。我不懂VBA/6,只会一点基本的JS,所以有点迷茫。到目前为止,我已经做了以下工作:
Sub HTTPInternetPutFile()
' create new object with WinHttpRequest for this operation
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim FormFields As String
' initialize variables that we will set and pass as parameters
Dim sfpath
Dim strURL As String
Dim StrFileName As String
StrFileName = "CLIPrDL.csv"
sfpath = "C:\CLIPr\"
strURL = "http://s0106001c10187ab1.gv.shawcable.net/uploadtest/upload_file.php"
WinHttpReq.Open "POST", strURL, False
' Set headers
WinHttpReq.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
WinHttpReq.setRequestHeader "Accept-Charset", "ISO-8859-1,utf-8"
WinHttpReq.setRequestHeader "Content-Type", "multipart/form-data"
' WinHttpReq.setRequestHeader "Content-Type", "text/html;charset=UTF8"
WinHttpReq.setRequestHeader "Content-Disposition", "form-data; name=""userfile[]"""
' I dont understand this... why use fileup??
FormFields = """filename=" & StrFileName & """"
FormFields = FormFields & "&"
FormFields = FormFields & sfpath
' so comment it out for now
' WinHttpReq.Send FormFields
WinHttpReq.Send sfpath & StrFileName
' output this var to a message box becuase I dont know what it does really
MsgBox FormFields
' Display the status code and response headers.
MsgBox WinHttpReq.GetAllResponseHeaders
MsgBox WinHttpReq.ResponseText
End Sub
脚本底部的消息框会输出服务器的头部和回应(空白HTML页面)。我感觉有些地方没有在头部中进行正确的设置,以便让服务器满意(注意:尝试注释掉Content-Type)。
如果有任何人在使用VBA / 6中的WinHttpRequest对象通过HTTP POST二进制文件方面有经验,请帮忙!:)