< návrat zpět

MS Excel

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

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: xlsx43476_ticker-yahoo.xlsx (14kB, staženo 16x)
Zaslat odpověď >
MePExG(1.6.2019 19:38)#043477
MePExG
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: xlsx43477_pqticker-yahoo.xlsx (24kB, staženo 22x)
citovat
OndraEx(1.6.2019 20:27)#043478
avatar
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
MePExG
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: xlsx43479_pq2ticker-yahoo.xlsx (24kB, staženo 27x)
citovat
OndraEx(3.6.2019 11:55)#043481
avatar
Dekuji za vas cas a pomoc.citovat
OndraEx(5.6.2019 9:42)#043483
avatar
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: zip43483_data-z-webu.zip (21kB, staženo 20x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje