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.
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.
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.