MS Excel
Téma: data zo stranky goaloo.com 
Zaslal/a ginnes 9.4.2023 0:57
Ahojte,
poprosil by som Vas o radu, pomoc. Chcel som si spravit excel aj s filtrami na stranku goaloo.com, aby som ju nemusel mat stale otvorenu a cihat na dobry tip/kurz, ale import dat z webu mi excel nenacital.
V podstate som chcel easy vec, aby mi to hodilo upozornenie ak sa vyskytne zapas, kde je splnena podmienka:
- cas zapasu je nad urcitu minutu
- kurz je nad urcitu hodnotu
- rozdiel v hodnoteni tymu je vacsi nez X
- v nahladovom okne je aj %% drzanie lopty, ale to by asi neslo
Snazil som sa aj s takymto kodom od ChatGPT, ale nenacitalo mi nic.
Kazdopadne dakujem za ochotu, radu.
Pekny den
Sub StiahnutieDanych()
Dim URL As String
Dim Http As Object
Dim HTML As Object
Dim Element As Object
Dim R As Integer, C As Integer
' Určte URL adresu na stiahnutie
URL = "https://www.goaloo18.com/"
' Vytvorte objekt pre HTTP požiadavku
Set Http = CreateObject("MSXML2.XMLHTTP")
Http.Open "GET", URL, False
Http.send
' Počkajte 5 sekúnd na načítanie stránky
Application.Wait (Now + TimeValue("00:00:05"))
' Vytvorte objekt pre analýzu HTML obsahu
Set HTML = CreateObject("HTMLFile")
HTML.body.innerHTML = Http.responseText
' Analyzujte HTML obsah a získajte potrebné dáta
' Príklad: získanie hodnoty zo bunky s riadkom 1 a stĺpcom 1
R = 1
C = 1
For Each Element In HTML.getElementsByClassName("className") ' Nahraďte "className" s názvom triedy, ktorú chcete analyzovať
Sheets("Sheet1").Cells(R, C).Value = Element.innerText
R = R + 1
Next Element
' Uvoľnite objekty
Set Http = Nothing
Set HTML = Nothing
End Sub
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články