如何使用 Excel 公式（无 VBA）在 HTTP POST 响应中检索一段数据？

Question

有没有什么方法可以制作一个 Excel 超链接公式，在单击时发送 HTTP POST 并解析响应以填充另一个单元格？

Answer 1

使用内置Excel公式，

=WEBSERVICE(A2)

这将填充单元格中 URL 的内容。

Answer 2

[编辑] 抱歉，我没有在您的标题中看到“无 vba”。但我看不出你会怎么做。

您可以使用 vba 来完成此操作并在这些线程上找到有价值的信息：

• 如何使用 VBA 从 Excel 向服务器发送 HTTP POST 请求？

• 从以下位置执行 HTTP Post在 Excel 中并解析结果

这是一个代码示例：

'Send the request
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
   URL = "http://www.somedomain.com"
   objHTTP.Open "POST", URL, False
   objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
   objHTTP.send ("")

'Get the result
myText = objHTTP.responseText

'Set it in the current cell
ActiveCell.Value = myText

问候，

Answer 3

Public Function HttpPOST(ByVal URL As String) As String
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    objHTTP.Open "POST", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
   objHTTP.send ("")
   myText = objHTTP.responseText
   getHTTP2 = myText

End Function