vba - 在 Excel 2010 中调用 URL 而不打开网页

Question

我的 Excel 工作表包含手机号码。

我想将每个数字传递到 URL 并在我的服务器上执行特定代码。

我创建了一个按钮并编写了以下代码:

Private Sub CommandButton1_Click()

    strURL = "http://xxxxxxx.com/myAPI.php?mobilenumber=" _
    & ActiveCell.Value
    Call Sheets("Sheet1").Navigate(strURL)

    End Sub

但不幸的是它不起作用。

请注意，我不想重定向到http://xxxxxxx.com/myAPI.php，只是调用它并将手机号码传递给它。

谢谢

Answer 1

您可以使用 XMLHttp 来实现它。下面是示例代码。

XMLHttpRequest对象用于与后台服务器交换数据

 Sub SendSms()

    Dim URL As String
    URL = "http://xxxxxxx.com/myAPI.php?mobilenumber=" & ActiveCell.Value

    Dim xml As Object
    Set xml = CreateObject("MSXML2.XMLHTTP")
    xml.Open "GET", URL, False
    xml.Send
End Sub