Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Парсер сайта на VBA с постоянным обновлением страницы
 
#1
23.08.2016 19:13:36
Доброго времени суток.

Друг попросил помочь. А я не сильно искушен в данной теме.
Суть его "хотелки". Есть сайт. Разметка не сложная заголовок и таблица. Предварительная авторизация без капчи.
В таблице появляются заявки. Надо успеть нажать "Выполнить".

Собственно нужно понимание возможно ли на VBA реализовать алгоритм постоянного обновления открытой страницы?
Как авторизироваться и нажимать программно кнопки я "нагуглил"

Возможно, Excel не самый подходящий инструмент для этих целей...

Заранее благодарен.
 
 
 
#2
23.08.2016 20:53:10
а в чем конкретно помощь требуется?
задача объёмная, но ни одной строки кода не вижу

Excel - вполне подходящий инструмент (сам недавно для себя такой парсер делал, который каждые несколько минут проверял наличие билетов в Алькатрас)
можно и не в Excel делать - в чем угодно

Цитата
возможно ли на VBA реализовать алгоритм постоянного обновления открытой страницы?
Application.OnTime будет запускать ваш макрос с заданным интервалом времени
так что ничего сложного
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
24.08.2016 17:43:14
Думаю, здесь же вопрос задам. Аторизовываться  научился. Все что нужно прочитал, отфильтровал.
Не могу само нажатие кнопки выполнить.
Строка таблицы представлена следующим блоком. Как нажать "Выполнить" подскажите?
Скрытый текст

Мой код для этой части макроса
Скрытый текст
 
 
 
#4
24.08.2016 18:42:08
Нашел решение у индусов. Возможно, кому-то пригодится.
Если кнопка представлена тегом "<a" тогда вот так надо поступать.
Код
If Trim(eleColtd(7).innerText) = "Выполнить" And j = 7 Then
   Set Links = eleCol.getElementsByTagName("a")
   Links(0).Click
End If
 
 
 
#5
24.08.2016 22:45:41
Цитата
Grr написал: кому-то пригодится
Есть проще, чем у товарищей индусов
Код
    For Each a In htmldoc.all.tags("a")
        If a.innertext = "Выполнить" And a.parentElement.className = "btn-td" Then
            a.Click
            Exit For
        End If
    Next
Изменено: Doober - 24.08.2016 22:55:37
 
 
 
#6
25.08.2016 04:55:47
Doober, спасибо. Занес в копилку.
Но мне не все "Выполнить" требуется нажимать. Необходимо еще и анализировать описание заказа на вхождение ключевых слов.
Потому таблицу, видимо, все равно придется перебирать.
 
 
 
Страницы: 1
Читают тему
Наверх