3

我的 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给它。

谢谢

4

1 回答 1

7

您可以使用 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
于 2013-05-06T11:30:47.363 回答