Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Anton Anton
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Получить код страницы не через IE
 
#
22.10.2020 05:15:55
Всем добрый день! Парсер работал как надо, пока не пришел этот день и сайт выдал такое сообщение "сайт больше не поддерживает IE"! А можно ли как-нибудь получить код страницы в vba через другой браузер, например Chrome. На форуме видел, что открывают ссылки через постороннюю библиотеку Silenium, но как это сделать? Способ XMLHTTP не подходит т.к. сайт с подзагрузкой и реализовать через такой функционал у меня не получается.
Код
Sub marathon()
Dim ie As Object
Dim txt As HTMLDocument


Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "https://www.marathonbet.ru/su/betting/11?periodGroupAllEvents=24"
Set txt = ie.Document
 
Перейти    
Парсер в VB - записать название элемента в переменную
 
#
26.08.2020 10:13:50
Всем добрый день! Написал парсер, но наименование чемпионата не подставляется к каждой команде, потому что в HTML заголовок, в котором написано название чемпионата один, а команд в этом чемпионате может быть несколько. Возможно ли так сделать, чтоб название чемпионата повторялось столько же раз сколько команд в этом чемпионате, помогите, пожалуйста, или посредством VBA это невозможно реализовать.
Код
Sub mar()
Dim ie As Object
Dim champ As Object
Dim champs As Object
Dim names As Object
Dim nameh As Object
Dim txt As HTMLDocument
Dim a%, b%, c%

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "https://www.marathonbet.ru/su/betting/11?periodGroupAllEvents=24"
Set txt = ie.Document

a = Cells(Rows.Count, 2).End(xlUp).Row
Set champs = txt.getelementsbyclassname("category-label-link")
For Each champ In champs
a = a + 1
Cells(a, 1) = champ.innertext
Next champ

b = Cells(Rows.Count, 2).End(xlUp).Row
Set names = txt.getelementsbyclassname("bg coupon-row")
For Each nameh In names
    b = b + 1
    Cells(b, 2) = nameh.getAttribute("data-event-name")
Next nameh
End Sub
 
Перейти    
Как распарсить скачанную HTML страницу
 
#
12.07.2020 07:39:58
Добрый день! У меня есть скачанная HTML страница, каким образом я могу её распарсить, методы я знаю, мне непонятно каким образом её добавить в переменную?
 
Перейти    
Чтение из файла (распарсить hyml файл из переменной)
 
#
08.07.2020 10:30:44
Добрый день, уважаемые форумчане! Такой вопрос, имеется скачанный html файл, мне нужно его распарсить, каким образом сделать, чтобы этот файл записать в переменную? Чтоб впоследствии при извлечении данных я указывал именно переменную?
Вот этот код получает страницу с сайта, а мне нужно чтоб из компьютера
Код
txt.body.innerHTML = site.responseText
 
Перейти    
Как вытянуть вот это число (3.60) регуляркой
 
#
04.07.2020 19:17:14
Добрый день! Помогите, кто знает, уже всю голову сломал. Как вытянуть 3.60 из данной строки HTML регулярными выражениями и надо чтобы именно вытягивалось 3.60 вместе с Match_Result.1. На форуме ничего не нашел.
Код
<span class="selection-link active-selection  "
 data-selection-key="8628569@Match_Result.1" data-
prt="CP" data-selection-price="3.6">3.60</span>
[img]file:///C:/Users/Beloe04/Desktop/Ярлыки[/img][img]file:///C:/Users/Beloe04/Desktop/Ярлыки/Безымянный.png[/img]
 
Перейти    
Парсинг с помощью VBA. Какими способами возможно выделять необходимые данные с HTML страницы? 
 
#
04.07.2020 06:44:47
Все доброе время суток! Интересует такой вопрос. Я знаю только с помощью команд Instr, Mid и регулярными выражениями, но они имеют существенные минусы. Возможно имеются какие-то библиотеки, позволяющие работать со страницей сайта?
 
Перейти    
В функции Replace ошибка при указании заменяемого текста
 
#
03.07.2020 06:57:18
Всем доброго дня. Написал небольшой парсер, теперь удаляю ненужные символы, значения с ячеек. Но VBA ругается на следующую запись, я так подозреваю он распознает как некую команду, а мне нужно чтоб он просто находил как текст. На форуме порылся нашел записи про экранирование кавычками, сами кавычки экранируются, а вот data никак.
Код
Cells(j, 1) = Replace(Cells(j, 1), "" data-live", "")
 
Перейти    
При анализе текста регулярными выражениями использовать два паттерна
 
#
29.06.2020 11:35:26
Всем доброго времени суток! Подскажите пожалуйста, можно ли при регулярных выражениях использовать два шаблона (Pattern)? И как?
Код
….
With parser
    .Pattern = "head.\d.>.+?\("
    .Global = True
    .IgnoreCase = True
    With .Execute(txt)
....
 
Перейти    
VBA. Протягивание формулы на весь диапазон
 
#
22.06.2020 13:15:05
Доброе время суток! Разбираюсь в VBA. Написал макрос, который суммирует ячейки с шагом 11, всё работает, но не могу никак додуматься как распространить на все строки. Формулами могу это сделать, очень сильно хочется сделать это макросом. Помогите!!! На форуме искал, нашел команду AutoFill, но она заполняет во всех ячейках одинаковые значения.
Код
Sub sum()
c = Cells(Rows.Count, 346).End(xlUp).Row
For i = 1 To 347 Step 11
Cells(6, 350) = Cells(6, 350) + Cells(6, 10 + i)
Cells(6, 350).AutoFill Destination:=Range("ML6:ML" & c)
 
Перейти    
Страницы: 1
Наверх