Как открыть ссылку, находящуюся в ячейке листа Ексель, через 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д