如何将活动的单元格值传递给vba excel代码中的URL

这是我的代码

Private Sub Send_Click() Dim cell As Range, Rng As Range Dim strURL As String Set Rng = Selection For Each cell In Rng strURL = "http://xxxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _ & cell.Value & "&message=" & cell.Offset(0, 1).Value Call Sheets("Sheet1").WebBrowser4.Navigate(strURL) Next cell Set Rng = Nothing End Sub 

我是突出显示只有3手机号码在单元格A，我点击button，它只需要最后一个号码。

Answer 1

可能最容易build立的string：

 Dim strURL as String strURL = "http://xxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _ & ActiveCell.Value & "&message=" & ActiveCell.Offset(0,1).Value Call Sheets("Sheet1").WebBrowser4.Navigate(strURL) 

假设活动单元格包含移动号码，并且其右侧的单元格包含所需的消息，否则指定单元格：

 Dim strURL as String strURL = "http://xxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _ & Range("A1").Value & "&message=" & Range("B1").Value Call Sheets("Sheet1").WebBrowser4.Navigate(strURL) 

您可能需要限定您的范围工作表。

编辑根据要求在评论中循环选定的单元格：

 Dim cell As Range, Rng As Range Dim strURL as String Set Rng = Selection For Each cell In Rng strURL = "http://xxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _ & cell.Value & "&message=" & cell.Offset(0,1).Value Call Sheets("Sheet1").WebBrowser4.Navigate(strURL) Next cell Set Rng = Nothing 

只select包含移动号码的单元格，否则代码将尝试发送到消息。 你可能想写一些检查，以确保单元格包含一个数字，如：

 If IsNumeric(cell.Value) Then 

或者更详细的格式检查取决于你在工作表的列中有什么。