Function GetHTTPResponse(ByVal sURL As String) As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .send
        GetHTTPResponse = .responseText
    End With
    Set oXMLHTTP = Nothing
End Function

Function WebPageText(ByVal sURL As String) As String
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application"):    ' загружаем браузер Internet Explorer
    IE.Navigate sURL    ' загружаем сайт
    While IE.busy Or (IE.readyState <> 4): DoEvents: Wend    ' ждем, пока загрузится страница
    WebPageText = IE.Document.body.innerText    ' считываем текст веб-страницы
    IE.Quit: Set IE = Nothing    ' закрываем браузер
End Function

Sub ОшибкаВНоль()
     Dim cl As Range
     On Error Resume Next
     For Each cl In Selection.Cells
         If cl.Errors.Item(xlEvaluateToError).Value = True Then
             clfrm = Right(cl.Formula, Len(cl.Formula) - 1)
             cl.FormulaLocal = "=если(еошибка(" & clfrm & ");0;" & clfrm & ")"
         End If
     Next
 End Sub

Function WebPageText(ByVal sURL As String) As String
    Set IE = CreateObject("InternetExplorer.Application") :    ' загружаем браузер Internet Explorer
    On Error Resume Next
    IE.Navigate sURL    ' загружаем сайт
    While IE.busy Or (IE.readyState <> 4): DoEvents: Wend    ' ждем, пока загрузится страница
[B]Application.Wait Now + 3 / 86400       ' пауза 3 секунды[/B]
    WebPageText = IE.Document.body.innerText    ' считываем текст веб-страницы
    IE.Quit: Set IE = Nothing    ' закрываем браузер
End Function
 
Sub ЗагрузкаТекста_()
    Set IE = CreateObject("InternetExplorer.Application") :    ' загружаем браузер Internet Explorer
   On Error Resume Next
    addr$ = Range("A1")    ' указываем адрес сайта (веб-страницы находится в «A1»), текст которой загружаем
    IE.Navigate addr$    ' загружаем сайт
    While IE.busy Or (IE.readyState <> 4): DoEvents: Wend    ' ждем, пока загрузится страница
[B]Application.Wait Now + 2 / 86400    ' пауза 3 секунды[/B]
    Txt$ = IE.Document.body.innerText    ' считываем текст веб-страницы в текстовую переменную
    [A60] = Txt$ ' помещаем текст веб-страницы на лист Excel
IE.Quit: Set IE = Nothing    ' закрываем браузер
       MsgBox "ТЕКСТ СКОПИРОВАН" ' выводим сообщение с текстом с сайта
End Sub