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

在不打开网页的情况下在Excel 2010中调用URL

1 个答案: