NOVINKA: Získej 40 hodin praktických dovedností s AI – ZDARMA ke každému akreditovanému kurzu!
S účinností od 26. 3. jsme aktualizovali Zásady zpracování osobních údajů – doplnili jsme informace o monitorování telefonických hovorů se zájemci o studium. Ostatní části zůstávají beze změn.

Diskuze: načtení tabulky z webu pomocí VBA makra

Jak se ti líbí článek?
Před uložením hodnocení, popiš prosím autorovi, co je špatněZnaků 0 z 50-500
Jak se ti kurz líbí?
Tvé hodnocení kurzuZnaků 0 z 50-500
Aktivity
Avatar
Daniel Vancl
Člen
Avatar
Daniel Vancl:1.8.2024 10:33

Načtení tabulky z webu. odkaz https://worldathletics.org/…ndar-results?…
Dobrý den
potřebuji z tohoto výše uvedeného odkazu načíst data z tabulky. která je schovaná pod kliknutím na ikonu i, v této tabulce se nachází informace o vzdálenosti závodu.
zkoušel jsem to přes elementsbytagname. elementbyclassname. ale bohužel se mi to nedaří načíst.
nemohu najít Tag Table makro hlásí že Tabulka neexistuje. zde posílám syntaxi

Dim URL As String
    Dim IE As InternetExplorer
    Dim HTMLdoc As HTMLDocument
    Dim TDelements As IHTMLElementCollection
    Dim TDelement As HTMLTableCell
    Dim r As Long


    URL = "https://worldathletics.org/competitions/world-athletics-label-road-races/calendar-results?season=2024"

    Set IE = New InternetExplorer

    With IE
        .navigate URL
        .Visible = False

        'Wait for page to load
        While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend

        Set HTMLdoc = .document
    End With

    Set TDelements = HTMLdoc.getElementsByTagName("div")

    List4.Cells.ClearContents
    Stop
    r = 0
    For Each TDelement.getElementsByClassName In TDelements
        'Look for required TD elements - this check is specific to VBA Express forum - modify as required
        If TDelement.className = "_next" Then
            Sheet1.Range("A1").Offset(r, 0).Value = TDelement.innerText
            r = r + 1
        End If
    Next

end sub

export z webu v excelu nenačte žádnou tabulku. již odzkoušeno.

 
Odpovědět
1.8.2024 10:33
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 1 zpráv z 1.