excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: náhled web stránek v Excelu
MS Excel
Téma: náhled web stránek v Excelu 
Zaslal/a zdena 21.2.2024 19:52
Lze prosím zobrazit náhled web stránky ( URL ) sešitu Excel nebo v okně Userform?
Děkuji za pomoc
(22.2.2024 13:12)#056220
Děkuji Vám
Nicméně mám Excel 2016 ale nelze najít tedy ani přidat Web browser
"C:\Windows\System32 " mám ieframe.dll ( dle rady na NETu)
Když bych vás moc poprosila můžete mi zaslat ukázkový sešit s UserForm na jakoukoliv URL (www https) já si to změním upravím, mám jen jedny nervy a je to složité!
Děkuji za odpověď i za pomoccitovat
Nicméně mám Excel 2016 ale nelze najít tedy ani přidat Web browser
"C:\Windows\System32 " mám ieframe.dll ( dle rady na NETu)
Když bych vás moc poprosila můžete mi zaslat ukázkový sešit s UserForm na jakoukoliv URL (www https) já si to změním upravím, mám jen jedny nervy a je to složité!
Děkuji za odpověď i za pomoccitovat
Nejaký príklad som urobil, ale tento "browser" má veľké obmedzenia (skripty, cookies, nezatvoriteľné časti stránok, nefunkčnosť...). Záleží na tom, k čomu to presne bude.
Příloha: 
56222_webbrowser-na-liste-pokus.zip (29kB, staženo 4x)
citovat56222_webbrowser-na-liste-pokus.zip (29kB, staženo 4x)Běží to bez problémů. Dodělám možnosti volby URL. Jen zvolím pro náhled obrázek v UserForm abych viděla pouze tu část stránky která mne zajímá. To celé jsem byla nucena vytvořit pro výpočet převodu AED na CZK, neboť ČNB nemá kurz této měny. Stejně to musím zadat ručně do Excelu ale vidím aktuální kurz. Excel umí spustit WEB stránky, ale neuí je zavřít..bohužel.
Za pomoc děkuji "ELŇINOVI" klobouk dolůcitovat
Za pomoc děkuji "ELŇINOVI" klobouk dolůcitovat
Z akej stránky čerpáte ten kurz?
To by bolo asi lepšie urobiť makro alebo PowerQuery dotaz, aby ten kurz vytiahol zo stránky napr. niekam do bunky. Takto mi to príde divné...
EDIT:
Niečo ako napr.:
Function KURZ_AED_CZK() As Double
Dim a() As String
Application.Volatile
With CreateObject("MSXML2.ServerXMLHTTP")
.Open "GET", "https://www.kurzy.cz/kurzy-men/prevodnik-men/AED-CZK/", False
.Send
a = Split(Split(.ResponseText, "</span> CZK (česká koruna)")(0), ">")
End With
On Error Resume Next
KURZ_AED_CZK = Val(a(UBound(a)))
End Functioncitovat
To by bolo asi lepšie urobiť makro alebo PowerQuery dotaz, aby ten kurz vytiahol zo stránky napr. niekam do bunky. Takto mi to príde divné...
EDIT:
Niečo ako napr.:
Function KURZ_AED_CZK() As Double
Dim a() As String
Application.Volatile
With CreateObject("MSXML2.ServerXMLHTTP")
.Open "GET", "https://www.kurzy.cz/kurzy-men/prevodnik-men/AED-CZK/", False
.Send
a = Split(Split(.ResponseText, "</span> CZK (česká koruna)")(0), ">")
End With
On Error Resume Next
KURZ_AED_CZK = Val(a(UBound(a)))
End Functioncitovat
Dospel som k tomu, že makrom to cez Msxml2.XMLHTTP, zo serverov ako Google a Msn nepôjde. Načíta totiž kód stránky s nastavením Cookies, a nie to čo dotazujeme. Powerquery to zatiaľ dokáže obísť, a kód stránky načíta. Dostať odtiaľ hodnoty je potom už jednoduché.
Bez makra, obnovuje sa každú 1 minútu.
Bez makra, obnovuje sa každú 1 minútu.
Příloha: 
56227_pq-czk-aed-kurz.xlsx (19kB, staženo 5x)
citovat56227_pq-czk-aed-kurz.xlsx (19kB, staženo 5x)(24.2.2024 10:21)#056228
Při spuštění Vašeho programu se zobrazí kurz ale po několika sekundách zmizí a už se nový nezobrazí ( asi při aktualizaci ). Jak jste tedy získal ty hodnoty ve Vašem programu?citovat
Přikládá soubor pro náhled na WEB
Příloha: 56230_web2.xlsx (21kB, staženo 5x)
citovat56230_web2.xlsx (21kB, staženo 5x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články