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
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.
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
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.
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