VBA调用网页不打开浏览器不返回数据

Question

我正在尝试创建一个 excel UDF，它调用一个网页，运行s 脚本从 URL 中的参数中获取值。例如：“http://example.com.com/script.php?variable1=123&variable2=456&etc=etc”

我在谷歌搜索和尝试其他 Whosebug 答案后使用了这个。是的，它创建了一个 udf，是的，您可以在 udf 中输入一个单元格值，但不，它不会调用 URL（URL 上的访问跟踪表示它尚未被调用）。

Function callurl(urltocall As String) As String
Dim urlText As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", urltocall, False
.send
urlText = .responseText
End With
End Function

我不需要它return任何数据，只是调用URL到运行的脚本。这样做的目的是从 excel 中获取变量并将它们用作 URL 中的参数，这将运行一个脚本并更新一个网络 SQL 数据库。

实际结果是什么都没有（excel中的空白单元格，没有访问网页）。

Answer 1

函数没有return任何结果。这是正确的代码：

Function callurl(urltocall As String) As String
    Dim urlText As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", urltocall, False
        .Send
        urlText = .responseText
    End With
    callurl = urltext
End Function

Answer 2

Excel 的更高版本有一个无需 UDF 即可执行此操作的公式。

公式为：=WEBSERVICE("yoururlhere.com")

有关其他信息，请参阅 this article on office.com。

VBA调用网页不打开浏览器不返回数据

VBA call webpage without opening browser or returning data

excel

http

excel-udf

vba