Как открыть ссылку, находящуюся в ячейке листа Ексель, через 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 в НТТР запросе?»

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.2 из 5
Похожие ответы