Здравствуйте, после восстановления сайта парсер перестал работать. Помогите пожалуйста.
Файл на гул-диске и на яндекс-диске(размер файла больше допустимого).

Кусок сода

Код ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 Option Explicit 'http://lavka.pochaev.org.ua/ 'старый адресс(ЗАБЛОКИРОВАН!) Const myLink As String = "https://lavka.pochaevlavra.org/"   Sub UpdatePrise()     Dim xmlRequest As New MSXML2.XMLHTTP60, htmlDocument As New MSHTML.htmlDocument     Dim CatalogBookList As MSHTML.IHTMLElement     Dim CatalogBooks As MSHTML.IHTMLElementCollection     Dim CatalogBook As MSHTML.IHTMLElement     Dim CatalogBookID As Integer     Dim NextHref As String, NextURL As String     Dim t As Date         Call A_RemoveOldPrice4         t = Now         xmlRequest.Open "GET", myLink, False         'ЗАГОЛОВКИ пишутся между коммандами OPEN и SEND         xmlRequest.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:89.0) Gecko/20100101 Firefox/89.0"         xmlRequest.setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8"         xmlRequest.setRequestHeader "Accept-Encoding", "gzip, deflate"         xmlRequest.setRequestHeader "Content-Type", "text/html; charset=WINDOWS-1251"         xmlRequest.send         If xmlRequest.Status <> 200 Then             MsgBox "Some error" & vbCrLf & "or no connection!" & _             vbCrLf & "xmlRequest.Status is " & xmlRequest.Status             Exit Sub         End If         Application.ScreenUpdating = False '        Application.EnableEvents = False         htmlDocument.body.innerHTML = xmlRequest.responseText         Set xmlRequest = Nothing                   Set CatalogBookList = htmlDocument.getElementsByClassName("list-group")(1)         Set CatalogBooks = CatalogBookList.getElementsByTagName("a")         frmUpDatePoces.Show 0 '        Debug.Print CatalogBooks.Length         For CatalogBookID = 0 To 62 Step 2 'CatalogBooks.Length - 1             DoEvents             frmUpDatePoces.Caption = "Progress of updating... " & Format(Now - t, "hh:mm:ss")             frmUpDatePoces.Repaint             frmUpDatePoces.lblGreen.Width = 200 / 100 * Int(CatalogBookID / 62 * 100)             frmUpDatePoces.lblGreen.Caption = Int(CatalogBookID / 62 * 100) & "%"             Set CatalogBook = CatalogBooks(CatalogBookID)             If Not CatalogBook Is Nothing Then '===============================                 NextHref = CatalogBook.getAttribute("href")                 NextURL = myLink & Mid(NextHref, 8)     '            Debug.Print NextURL 'CatalogBook.innerText,                 Call GetOneCatalog(NextURL)             End If         Next CatalogBookID         Range("A2").CurrentRegion.WrapText = False         Call PreparePriceList         Unload frmUpDatePoces '        Application.EnableEvents = True         'MsgBox "Готово! " & Format(Now - t, "hh:mm:ss") ' & Format(Now - t, "ss") End Sub

UPD:
Игорь,  спасибо большое за помощь, но в процессе выскочила другая ошибка, завтра поиграюсь попробую решить задачу самостоятельно.