Всем добрый день! Написал парсер, но наименование чемпионата не подставляется к каждой команде, потому что в 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 |