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

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.