• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA: Extrakt cisla z webu do Excelu

Zaslal/a OndraEx 1.6.2019 17:44

Zdravim,

vubec neumim programovat ve VBA, ale zajimalo by me, zda-li by slo nejak jednoduse udelat nasledujici.

Ve sloupci A (treba A3:A13) bych mel seznam tickeru akcii a nekde nad tim tlacitko "Update", na ktere kdybych kliknul, tak by se mi do sloupce B (B3:B13) natahaly aktualni ceny danych tickeru (spolecnosti).

Slo by mi o ceny z finance.yahoo.com, ale jelikoz nekdy v roce 2017 zrusili API pro pristup k datum, tak by to snad slo nejak udelat pres parsovani te webove stranky a vytazeni daneho jednoho elementu s cenou.

Ve sloupci "A" by bylo napr:

BAS.DE
JNJ
SAN.MC
a dalsi

a pro jednotlive zaznamy se by se pro kazdy radek do sloupce B stahla cena uvedena na webovych strankach co je zvyraznena velkym tucnym pismem.

Tedy adresa je vzdy stejna, jen se meni ten ticker, ktery by byl uveden ve sloupci A.

Slo by tohle nejak jednodusse udelat?

Dekuji za odpoved.

Příloha: 43476_ticker-yahoo.xlsx (14kB, staženo 15x)

Zaslat odpověď >

---

MePExG(1.6.2019 19:38)#043477

Prikladám riešenie pomocou Power Query (od verzie 2010 doplnok a od v. 2016 je už obsiahnuté). Stačí vyplniť modrú tabuľku a dať aktualizovať zelenú.

Příloha: 43477_pqticker-yahoo.xlsx (24kB, staženo 21x)

citovat

OndraEx(1.6.2019 20:27)#043478

Dekuji, jak rozsirim tu zelenou tabulku, kdyz bych rozsiril tu modrou vstupni?

A nejak pomoci toho VBA?

Snazil jsem se neco vygooglit, ale nic podobneho tomu, co bych potreboval/chtel jsem nenasel.

Narazil jsem akorat tady na tenhle soubor, kde to predem definovane tickery taha historicka data pro nejaky casovy usek definovany od/do. A jeste navic jsou ta data tahana do samostatnych listu vytvorenych pro kazdy ticker zvlast.

Ale ja nepotrebuji oteviraci/zaviraci cenu atd, jenom tu posledni/aktualni a vypsat ji do sloupce vedle vstupu. Pro jeden ticker jednu cenu, co je momentalne aktualni (ta zvyraznena na webove strance).

Dekuji za odpoved.citovat

MePExG(1.6.2019 20:44)#043479

Zelená tabuľka sa automaticky rozširuje, alebo zmenšuje podľa modrej po svojej aktualizácii. VBA robím len pre svoju potrebu. Keď tak veľmi trváte, že hodnota musí byť hneď vedľa stačí skryť (odstrániť) stĺpce medzi tabuľkami, prípadne PQ som upravil, aby zobrazil iba hodnoty. Pre aktualizáciu PQ sa dá nastaviť, aby sa aktualizovala pri otvorení súboru a/alebo aj v stanovenom intervale v minútach.

Příloha: 43479_pq2ticker-yahoo.xlsx (24kB, staženo 26x)

citovat

OndraEx(3.6.2019 11:55)#043481

Dekuji za vas cas a pomoc.citovat

OndraEx(5.6.2019 9:42)#043483

Jen jeste na dotaz na to VBA.

Ac nejsem programator, a VBA neumim, podarilo se mi nejak slepit z par kodu nasledujici script, ktery je schopen stahnout hodnotu (cenu) ze sestavene URL adresy pro jeden ticker (spolecnost).

Mohl by mi nekdo poradit, jak docilit toho, aby to po stisknuti tlacitka projelo vsechny uvedene tickery v tom danem sloupci (v prilozenem prikladovem souboru jsou pouze 3) a jejich hodnoty byly vypsany do vedlejsiho sloupce?

Snazil jsem se toho docilit nejak pomoci For i = 8 to 10 ... Cells(i, 2) ... Next i ale tohle mi nejak nefungovalo a hadalo se s nacitanim tech webovych stranek a extrakci hodnoty.

Predem dekuji za pomoc.

Příloha: 43483_data-z-webu.zip (21kB, staženo 19x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse