Jak do Excelu dostat aktuální hodnotu z webové stránky?

[Peťa]

Ahoj,

rád bych požádal o radu, jak do Excelové tabulky dostat aktuální hodnotu z webové stránky.
Jde mi o položku aktuální cena z této stránky: https://www.pse.cz/detail/CZ0008019106
Pokud by údaj bylo možné lépe získávat z jiného webu, tak to samozřejmě nevadí.
Potřeboval bych, aby se hodnota vždy při otevření sešitu aktualizovala.

[elninoslov]

2 spôsoby pomocou PowerQuery, jeden rozložením na špecifické Children, druhý vyhľadaním textu v kóde. Dotazy majú nastavenú aktualizáciu pri otvorení.

Kód: Vybrat vše

let
    Zdroj = Web.Page(Web.Contents(" https://www.pse.cz/detail/CZ0008019106")),
    #"Filtrované riadky0" = Table.SelectRows(Zdroj, each ([Caption] = "Document")){0}[Data],    //dokument BODY
    Children0180103 = #"Filtrované riadky0"{0}[Children]{1}[Children]{8}[Children]{0}[Children]{1}[Children]{0}[Children]{3}[Children]{1}[Children]{1}[Children],   //postupné rozbalenie špecifických ulov
    #"Aktuální cena" = Table.SelectRows(Children0180103, each [Text] <> " " and [Text] <> null)[Text]{0}    //extrakcia Aktuální cena
in
    #"Aktuální cena"

Kód: Vybrat vše

let
    Zdroj = Table.FromColumns({Lines.FromBinary(Web.Contents(" https://www.pse.cz/detail/CZ0008019106"))}),
    #"Orezaný text" = Table.TransformColumns(Zdroj,{{"Column1", Text.Trim, type text}})[Column1],   //zmazanie medzier pre možnosť vyhľadania ceny
    #"Aktuální cena"=Text.SplitAny(#"Orezaný text"{List.PositionOf(#"Orezaný text", "<div class=""detail-chart-info-item-content-title"">Aktuální cena</div>")+2}, "<>"){2} //nájdenie a extrakcia ceny
in
    #"Aktuální cena"

Musel som to takto, lebo nemôžem tie info nájsť v objektoch Table, ktoré dotaz na link na stránku vráti.

[Peťa]

Děkuji.
Našel jsem, že z tohoto linku https://www.pse.cz/udaje-o-trhu/akcie/prime-market se aktuální cena pěkně zobrazuje v tabulce, takže už jsem to rozchodil.