Здравствуйте, коллеги
Прошу помощи.
Пытаюсь сделать парсинг страницы с товарами, парсинг работает, но только для 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
|
