Как открыть ссылку, находящуюся в ячейке листа Ексель, через send в НТТР запросе? - VBA

Формулировка задачи:

Форумчане, помогите кто-нибудь! Перерыл все что мог, но бестолку. Макрос открывает адрес страницы сайта, если прописать ссылку в самом макросе или переменной присвоить ссылку. Но если переменой присвоить ячейку, где находится ссылка сайта, то на .send выдает ошибку. Как открыть адрес страницы, которая находится в ячейке листа Екселя?strURL = "http://www.cyberforum.ru/vba/" - открывает strURL = Cells(1,1) - не открывает !!! With CreateObject("Microsoft.XMLHTTP") .Open "GET", strURL, "False" .send If .statustext = "OK" Then s = .responsetext 'HTML-код страницы End If End With

Код к задаче: «Как открыть ссылку, находящуюся в ячейке листа Ексель, через send в НТТР запросе? - VBA»

textual
Cells(1, 1) = "http://www.cyberforum.ru/vba/thread1990141.html"
strURL = Cells(1, 1)
 
With CreateObject("Microsoft.XMLHTTP")
     .Open "GET", strURL, False
     .Send
     If .StatusText = "OK" Then
        s = .ResponseText 'HTML-код страницы
        MsgBox s
     End If
End With

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ