通过 POST 将工作表作为文件提交到 Web 服务

Question

是否有一种方法可以将宏绑定到嵌入在该工作簿中的按钮（即“将工作表上传到 Web 服务”），它将获取当前工作表（作为 .xlsx 或 .csv）或整个工作簿并将其提交到通过 POST 方法的 Web 服务？

即https://www.mywebservice.com/uploads

一个好处是向用户查询用户名/密码或 api 密钥，但我们可以暂时硬编码。

Answer 1

这是我用来将数据发布到服务器的一些代码。按钮单击处理程序循环通过活动工作表并构建一些 XML 以发布到端点。这是旧代码，我似乎记得我必须先导入 MSXML2.XMLHTTP 才能工作（在 vba 编辑器中，转到 Tools-References）。

Sub PostData_ButtonClick()
Dim bldgID As String
Dim year As String
Dim leasid As String

bldgID = ActiveSheet.Range("A1").Text
year = ActiveSheet.Range("A2").Text
Dim Result As String
Result = "<records>"
Dim c As Range
For Each c In ActiveSheet.Range("E4:ZZ4").Cells
    If Not IsEmpty(c.Value) Then
        Result = Result & [redacted]
    End If
Next
Result = Result & "</records>"
DoPost (Result)
End Sub


Function DoPost(xml As String)

Dim xmlDoc As Object
Dim boolValue As Boolean
Dim xmlDocEl As Object
Dim responseText As String
Dim xmlhtp As New MSXML2.XMLHTTP
Dim sURL As String

Dim objXML As Object
sURL = "https://www.mywebservice.com/uploads"

Dim sEnv As String

With xmlhtp
    .Open "post", sURL, False
    .setRequestHeader "Host", "www.mywebservice.com"
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .setRequestHeader "Accept-encoding", "zip"
    .send "xmlFile=" & xml
    responseText = .responseText
End With
MsgBox "Response from server:" & vbCrLf & responseText
DoPost = responseText
End Function