Здравствуйте, коллеги
Прошу помощи.
Пытаюсь сделать парсинг страницы с товарами, парсинг работает, но только для 20 товаров, т.к. что бы увидеть все товары необходимо нажать на кнопку внизу станицы. Вот как это сделать в VBA у меня проблема.
Что необходимо прописать, что бы каталог товаров открывался полностью?
Спасибо.
Прошу помощи.
Пытаюсь сделать парсинг страницы с товарами, парсинг работает, но только для 20 товаров, т.к. что бы увидеть все товары необходимо нажать на кнопку внизу станицы. Вот как это сделать в VBA у меня проблема.
Что необходимо прописать, что бы каталог товаров открывался полностью?
Спасибо.
Код |
---|
Sub Zapros() Dim sURI As String Dim oHttp As Object Dim htmlcode, outstr As String Dim inpdate As Date Dim d, m, y As Integer sURI = "http://www.toys.ost-com.ru/?task=noFilter&groupId=74171" On Error Resume Next Set oHttp = CreateObject("MSXML2.XMLHTTP") If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest") End If On Error GoTo 0 If oHttp Is Nothing Then Exit Sub End If oHttp.Open "GET", sURI, False oHttp.Send htmlcode = oHttp.responseText Set oHttp = Nothing 'Debug.Print htmlcode C = 1 catx = 1 cat = InStr(catx, htmlcode, "class=" & """" & "article" & """") + 18 'Поиск Артикула Do While cat > 0 cat = InStr(catx, htmlcode, "class=" & """" & "article" & """") + 18 If cat < catx Then MsgBox "OK" Exit Sub End If cat = InStr(catx, htmlcode, "class=" & """" & "article" & """") + 18 cat1 = InStr(cat, htmlcode, "<") art = Mid(htmlcode, cat, cat1 - cat) 'Debug.Print art Cells(C, 3) = art C = C + 1 catx = cat Loop End Sub |