Выдернуть данные с сайта

[z00lu]

Всем доброго дня

Прокачал слегка свои навыки в VBA, но вот в обработке данных с сайта все никак не могу разобраться. Прошу помощи по выдергиванию данных с сайта, а то что-то совсем запутался

Dim IE  As Object

Sub ассортимент()
Dim Наименование As String
Dim Цена As String
Dim Артикул As String
Dim Наличие As String

'вызываем InputBox  и вводим туда наименование  товара
'поиск по которому будет осуществляться на сайте

Товар = InputBox("Что ищем? ", "наименование")


'запускаем IE
If IE Is Nothing Then
    Set IE = CreateObject("InternetExplorer.Application")
End If
IE.Visible = False 

On Error Resume Next
IE.Navigate "http://ogo1.ru/" 'преходим на сайт для поиска

For i = 1 To 1000: DoEvents: Next
While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend

Set ieDoc = IE.Document.getElementById("search") 'получаем поисковую строку
ieDoc.FirstChild.Value = Товар 'вводим значение в поисковую строку из инпутбокса
ieDoc.FirstChild.NextSibling.NextSibling.Click 'кликаем на кнопку найти

For i = 1 To 1000: DoEvents: Next
While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend

' А вот отсюда уже затык (((


'выключаем IE
IE.Quit
Set IE = Nothing

End Sub

Никак не могу програмно кликнуть на 45 ( чтобы на страницу выводилось по 45 наименований)

<li>
    <a class="inner " data-size="45" href="">45</a>
</li>

Получить данные со страницы поиска в соответствующие переменные
И вывести их в файл

Наименование в первый столбец
(Чехол для HTC One Mini Double Dip Hard Shell HC C850)

<a class="url back_url_carry setSampleId" title="Чехол для HTC One Mini Double Dip Hard Shell HC C850" 
href="/market/case_telefon/88296-CHehol-dlya-HTC-One-Mini-Double-Dip-Hard-Shell-HC-C850?sample=5266e32bcdb74">
Аксессуары Чехол для HTC One Mini Double Dip Hard Shell HC C850</a>

Цены - во второй
(990.–)

<span class="price">990.–</span>

Артикул - в третий
(88296)

<span style="margin-right:10px">88296</span>

Наличие - в четвертый
(Пл. Ильича, Нагатинская, Динамо)

<span class="where">
                                    &nbsp;&nbsp;Пл. Ильича, Нагатинская, Динамо                                </span>

Конечно было бы великолепно, если бы подсказали как пробежаться по всем страницам поиска введя в InputBox слово "чехол", но думаю смогу с этим разобраться позже самостоятельно

[Rififi]

используй класс WinHttpRequest
vba хоть и убожество, но там можно и с http работать и регулярные выражения использовать.

вместо кликов через эксплорер отправляешь post-запросы.

а вообще, лучше всё это на c# делать, там хотя бы HtmlAgilityPack есть...

[doober]

Не люблю я кнопки нажимать,если можно и без этого обойтись.
С артикулами и складами сами сможете разобраться.

[z00lu]

doober, благодарствую!
Работает, правда чуть иначе чем ожидал...
РАботает только если вводить фирму производителя, если вбить слово "чехол" или "чайник" выдает все и сервера и мышки .... все кроме запрашиваемого товара

Можешь написать кратко алгоритм по которому работает макрос?

[doober]

Научил понимать чехлы и мышки.

Можешь написать кратко алгоритм по которому работает макрос?

Сам не знаю,собрал с сайтов примеры кодов и получился нужный макрос.
Пару строк коментов добавил

[IgorGO]

это редкий случай, когда макрос работает без алгоритма

[doober]

Игорь,мозги и мысли не продаю.
По коду и так все понятно.