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

@Genri12 · Регистрация: 27.03.2016

Author24 — интернет-сервис помощи студентам

Форумчане, помогите кто-нибудь! Перерыл все что мог, но бестолку.
Макрос открывает адрес страницы сайта, если прописать ссылку в самом макросе или переменной присвоить ссылку.
Но если переменой присвоить ячейку, где находится ссылка сайта, то на .send выдает ошибку.
Как открыть адрес страницы, которая находится в ячейке листа Екселя?

strURL = "https://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

@pashulka · 25.05.2017, 21:20

Visual Basic

Cells(1, 1) = "https://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

@Genri12 0 / 0 / 0 Регистрация: 27.03.2016 Сообщений: 4
		1
	Как открыть ссылку, находящуюся в ячейке листа Ексель, через send в НТТР запросе? 25.05.2017, 21:09. Показов 4763. Ответов 1 Метки http, адрес, запрос, парсинг html, сайт, ссылка, ячейка (Все метки) Форумчане, помогите кто-нибудь! Перерыл все что мог, но бестолку. Макрос открывает адрес страницы сайта, если прописать ссылку в самом макросе или переменной присвоить ссылку. Но если переменой присвоить ячейку, где находится ссылка сайта, то на .send выдает ошибку. Как открыть адрес страницы, которая находится в ячейке листа Екселя? strURL = "https://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 0

	25.05.2017, 21:20