Jak do Excelu dostat aktuální hodnotu z webové stránky? Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
Peťa
Level 5
Level 5
Příspěvky: 2123
Registrován: duben 10
Pohlaví: Muž

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

Příspěvekod Peťa » 10 lis 2023 09:41

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.

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 386
Registrován: červen 13
Pohlaví: Muž

Re: Jak do Excelu dostat aktuální hodnotu z webové stránky?  Vyřešeno

Příspěvekod elninoslov » 10 lis 2023 12:40

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.
Nemáte oprávnění prohlížet přiložené soubory.

Uživatelský avatar
Peťa
Level 5
Level 5
Příspěvky: 2123
Registrován: duben 10
Pohlaví: Muž

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

Příspěvekod Peťa » 10 lis 2023 16:24

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.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Fičura v Excelu
    od Rosta_Kolmix » 27 čer 2024 17:12 » v Kancelářské balíky
    1
    2570
    od Grimm
    28 čer 2024 23:30
  • ComboBox v Excelu kopírování
    od LukM » 19 říj 2024 14:03 » v Kancelářské balíky
    0
    1638
    od LukM
    19 říj 2024 14:03
  • Graf v Excelu ukazuje chybné hodnoty.
    od atari » 25 dub 2024 08:42 » v Kancelářské balíky
    4
    4000
    od atari
    25 dub 2024 13:28
  • automaticke nastaveni velikosti komentare v Excelu
    od Mikik Block » 04 zář 2024 15:17 » v Kancelářské balíky
    0
    2326
    od Mikik Block
    04 zář 2024 15:17
  • Web stránky se nedají načítat
    od jurasek9 » 04 pro 2024 11:22 » v Problémy s hardwarem
    5
    1155
    od jurasek9
    05 pro 2024 07:50

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot], elninoslov a 5 hostů