2013-05-06 56 views
3

我的Excel工作表由手機號碼組成。在不打開網頁的情況下在Excel 2010中調用URL

我想將每個數字傳遞給一個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

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

在這裏,我想通過活動單元格值(即手機號碼) – arok 2013-05-06 11:38:04

+0

@arok需要什麼樣的參數,它取決於你的交換數據網站'xxxxxxx.com'。如果您向我提供鏈接,我可以幫助您。 – Santosh 2013-05-06 11:42:11

+0

@arok我已更新答案。一探究竟。 – Santosh 2013-05-06 11:52:07

相關問題