Archie Goodwin

Sub ЗагрузкаТекстаВебСтраницы()
 Set IE = CreateObject("InternetExplorer.Application"): ' загружаем браузер Internet Explorer
 On Error Resume Next
 addr$ = "http://excelvba.ru/services" ' указываем адрес сайта (веб-страницы), текст которой загружаем

 IE.Navigate addr$ ' загружаем сайт
 While IE.busy Or (IE.readyState <> 4): DoEvents: Wend ' ждем, пока загрузится страница
 ' Set ieDoc = IE.Document ' ссылка на открытый документ

 txt$ = IE.Document.body.innerText ' считываем текст веб-страницы в текстовую переменную
 
 '[a1] = txt$ ' помещаем текст веб-страницы на лист Excel
 IE.Quit: Set IE = Nothing ' закрываем браузер
 
 MsgBox txt$, vbInformation, "Текст веб-страницы " & addr$ ' выводим сообщение с текстом с сайта
End Sub

Sub test_internet()
 On Error Resume Next
 URL$ = "http://ExcelVBA.ru/"
 
 Const TIMEOUT& = 6 ' в секундах
 Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
 
 xmlhttp.Open "GET", URL$, True: DoEvents
 xmlhttp.Send: DoEvents
 
 If Not xmlhttp.WaitForResponse(TIMEOUT&) Then
 MsgBox "timeout", URL: Exit Sub
 End If
 
 txt$ = xmlhttp.responsetext
 MsgBox txt, vbInformation, "Длина ответа: " & Len(txt)
End Sub

Function GetHTTPResponse(ByVal sURL As String) As String
 On Error Resume Next
 Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 With oXMLHTTP
 .Open "GET", sURL, False
 ' раскомментируйте следующие строки и подставьте верные IP, логин и пароль
 ' если вы сидите за proxy
 ' .setProxy 2, "192.168.100.1:3128"
 ' .setProxyCredentials "user", "password"
 .send
 GetHTTPResponse = .responseText
 End With
 Set oXMLHTTP = Nothing
End Function