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

我的Excel工作表由手机号码组成。

我想通过每个号码到一个URL，并执行我的服务器上的某些代码。

我已经创build了一个button，并写下了以下代码：

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

但不幸的是，它不工作。

请不要，我不想redirect到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