vba - 通过 Excel VBA 的 HTTP Post 协助

Question

感谢您提供的任何帮助!我似乎遇到了障碍。我正在尝试将 Excel 电子表格中的数据字符串发送到给定的 HTTP 位置。最终我希望在字符串中发送实际数据字段，但现在我只是硬编码以使 POC 正常工作。

在研究了关于同一主题的其他帖子后，我想出了下面的代码示例，但是在尝试建立连接时，我收到了“400 Bad Request”网络错误。

谁能发现我的语法错误？

Sub HTTPpost()

Dim result As String
Dim myURL As String
Dim postData As String
Dim winHttpReq As Object

Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

myURL = "Insert URL Location"  
postData = "Insert Data String"

winHttpReq.Open "POST", myURL, False
winHttpReq.SetCredentials "Insert ID", "Insert Pwd", 0
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.Send (postData)

result = winHttpReq.ResponseText
Debug.Print vbCrLf & "Results:" & vbCrLf & result

End Sub

谢谢!!!

Answer 1

我能够弄清楚这一点。根据接收应用程序，UserID 和 Pwd 需要在 DATA 字符串中，而不是单独的凭据。所以最终的结果是这样的:

Sub HTTPpost()

Dim result As String
Dim myURL As String
Dim postData As String
Dim winHttpReq As Object

Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

myURL = "Insert URL Location"  
postData = "Insert ID & Insert Pwd & Insert Data String"

winHttpReq.Open "POST", myURL, False
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.Send (postData)

result = winHttpReq.ResponseText
Debug.Print vbCrLf & "Results:" & vbCrLf & result

End Sub