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