Excel 如何将单元格中的值检索到URL中

我正在尝试使用API发送SMS id&mobileno=919999999&message=Hello

我想从“d”工作簿第7页的单元格中获取mobileno，光标将位于同一行。只希望从“d”中提取值并用作手机号码

我在mobileno中找到了一个与硬编码的数字配合良好的代码，但在尝试提取值时出错。任何帮助都将不胜感激

Sub SendSms()    
    Dim URL As String
    Dim rng As Range

    URL = "http://bulksms.mysmsmantra.com:8080/WebSMS/SMSAPI.jsp?username=username&password=password&sendername=sender id&mobileno=& ThisWorkbook.Worksheets(7).rng.Row("d:d").Value & "&message=Hi test"

    Dim xml As Object
    Set xml = CreateObject("MSXML2.XMLHTTP")
    xml.Open "GET", URL, False
    xml.Send
End Sub

我需要代码从“d:d:”中提取值，并将其作为mobileno和sms发送出去

---

聚苯乙烯；我是一名VBA新手，如果我没有正确解释，那么很抱歉。

首先，在

id&mobileno=

后面缺少一个引号，它必须是：

Url = "http://bulksms.mysmsmantra.com:8080/WebSMS/SMSAPI.jsp?username=username&password=password&sendername=sender id&mobileno=" & ThisWorkbook.Worksheets(7).Rng.Row("d:d").Value & "&message=Hi test"

其次，对于单元格

ThisWorkbook.Worksheets（7）.Rng.Row（“d:d”）.Value

，这是无效的地址。因为

d:d

是一个整列，但您只能将一个单元格值放入URL，而不能放入整列

所以你要么用一个混凝土细胞，比如

ThisWorkbook.Worksheets(7).Range("D1").Value

或者您需要在D列中循环，为D列中的每个号码发送短信。
注意：我将不作进一步解释，因为您将找到大量关于如何循环浏览专栏的教程

---

还要注意的是，

工作表（7）

是7ᵗʰ选项卡列表中的工作表。如果有人重新排列标签，那么您的代码将失败。最好使用选项卡名

工作表（“MySheetName”）

将其作为Url=“id&mobileno=”&Worksheets（“MonthlyAttendance”）.rng.Row（“d1474”）.Value&“&message=Hi test”输入，并出现错误。对象不支持此属性或方法（错误438）。因为您没有使用我解释的正确语法：

rng.Row（“d1474”）

不存在。它必须是

工作表（“MonthlyAttendance”）.Range（“D1474”）.Value

.oops。知道了。但是我如何在不定义单元格编号的情况下获得值呢。由于我希望从行中获取光标所在的位置，因此您可以使用

Range（“D”&ActiveCell.row）

获取活动单元格的行。