andrewkard1980
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо!
С этим разобрался. Создал на листе списки для выбора авто, сгенерировал веб запрос, все работает. Одна проблема, необходимо htmlcode разбивать с помощью функций, поскольку возникает неправильная разбивка данных, я раньше делал так:
On Error Resume Next
outstr = Mid(htmlcode, InStr(1, htmlcode, "b-itemSeacrh") + 0, 10000)
On Error Resume Next
Set oHttp = Nothing
On Error Resume Next
Range("$A$50") = outstr
On Error Resume Next
outstr = Mid(htmlcode, InStr(1, htmlcode, "b-itemSeacrh") + 7000, 10000)
Set oHttp = Nothing
On Error Resume Next
Range("$A$51") = outstr
On Error Resume Next
outstr = Mid(htmlcode, InStr(1, htmlcode, "b-itemSeacrh") + 15000, 10000)
Возможно что то не так пишу, только пару дней назад сел разбиратся с ним 
Со слова b-itemSeacrh начинается найденные машины, к каждой можно привязятся к слову HeaderLink (начало каждой машины). Вот теперь голову ломаю
Добавлено:
По аналогии с функцией excel mid написал для второй машины:
outstr = Mid(htmlcode, InStr(InStr(1, htmlcode, "b-itemSeacrh"), htmlcode, "HeaderLink") + 0, 10000)
Работает, интерестно, сколько вложений видерживает функция, вряд ли много... |
