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

我的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

传递给它

---

谢谢

您可以使用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

---

这里我想传递活动单元格值（即手机号码）@arok需要什么参数取决于您的站点

xxxxxxx.com

。如果您提供链接，我可以帮助您。请使用此链接下载我的文件filedropper.com/testing