Как извлечь значение из ячейки в URL

Question

Я пытаюсь отправить SMS с помощью API http://bulksms.mysmsmantra.com:8080/WebSMS/SMSAPI.jsp?username=username&password=password&sendername=sender id & mobileno = 919999999999 & message = Hello

Я хочу получить мобильный номер из ячейки листа 7 рабочей книги из курсора "d"будет в том же ряду.просто хочу, чтобы значение из "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 и как смс для отправки.;Я новичок в VBA, поэтому извините, если я не объяснил это правильно.

Answer 1

Во-первых, сразу после 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, чтобы отправить SMS для каждого номера в столбце D.
Примечание: Я не буду объяснять это более подробно, потому что вы найдете множество учебных пособий по циклу по столбцу.

Также обратите внимание, что Worksheets(7) - это 7ᵗʰ лист в списке вкладок.Если кто-то перегруппирует вкладки, ваш код потерпит неудачу.Может быть лучше использовать имя вкладки Worksheets("MySheetName").