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

【问题标题】：How can I use an Excel formula (no VBA) to retrieve a piece of data within an HTTP POST response?如何使用 Excel 公式（无 VBA）在 HTTP POST 响应中检索一段数据？
【发布时间】：2011-04-24 03:25:11
【问题描述】：

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

【问题讨论】：

标签： excel hyperlink http-post worksheet-function

【解决方案1】：

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

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

这是一个代码示例：

'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

问候，

【讨论】：

【解决方案2】：

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

【讨论】：