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) Работает, интерестно, сколько вложений видерживает функция, вряд ли много... |