excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra 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
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 pomoc
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 pomoc
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 5x)
56222_webbrowser-na-liste-pokus.zip (29kB, staženo 5x)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ů
Za pomoc děkuji "ELŇINOVI" klobouk dolů
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 Function
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 Function
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 6x)
56227_pq-czk-aed-kurz.xlsx (19kB, staženo 6x)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?
Přikládá soubor pro náhled na WEB
Příloha: 56230_web2.xlsx (21kB, staženo 7x)
56230_web2.xlsx (21kB, staženo 7x)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