在不打开网页的情况下在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只是调用它并传递mobilenumber给它.

谢谢

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