在Excel单元格中curlURL和发布结果？

我在Excel工作表中有200行，我想包括在一个curl（或任何types的HTTP获取），并在第二列看到结果。

**Column A** 123 456 789 012 ... 

我已经尝试使用Excel选项从外部网页获取数据，但它似乎不适用于同一工作表上的多行。 有没有一种方法可以将列A中的值附加到静态URL（即： http : //testurl.net/page.php?ID=[ Column A）），以便页面的结果显示在列B' 我知道来自url的回复将是一个只显示几个字的rest回应。

谢谢

Answer 1

你可以通过使用一个http请求对象来做到这一点：

 Dim oRequest As Object Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") oRequest.Open "GET", "http://www.cboden.de" oRequest.Send MsgBox oRequest.ResponseText 

如果你在代理之后，你可以使用这样的东西：

 Const HTTPREQUEST_PROXYSETTING_PROXY = 2 Dim oRequest As Object Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") oRequest.setProxy HTTPREQUEST_PROXYSETTING_PROXY, "http://proxy.intern:8080" oRequest.Open "GET", "http://www.cboden.de" oRequest.Send MsgBox oRequest.ResponseText 

如果你想使用POST（而不是GET方法）来传递一些值到networking服务器，你可以试试这个：

 Dim oRequest As Object Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") oRequest.Open "POST", "http://www.cboden.de/misc/posttest.php" oRequest.SetRequestHeader "Content-Typ", "application/x-www-form-urlencoded" oRequest.Send "var1=123&anothervar=test" MsgBox oRequest.ResponseText 

如果你把它放到一个函数中，那么你可以在你的工作表中使用它：

 Function getCustomHyperlink(ByVal pURL As String) As String Dim oRequest As Object Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") oRequest.Open "GET", pURL oRequest.Send getCustomHyperlink = oRequest.ResponseText End Function 

在工作表中，你可以说例如：

 =getCustomHyperlink("https://www.google.com/search?q=" & A1 ) 

如果您的search值在A1