MS Excel

Zdravím, mám jeden problém. Při automatickém obnovování dat z webu (např. kurzovní lístek) každých 5 minut, bych potřeboval zaznamenávat čas, kdy došlo k načtení nových dat.
Hledal jsem na webu a buď jsem hledal špatně nebo jsme nic nenašel.
řešení přes vzorce mě nenapadá a makra zas tolik neovládám...
napadá vás něco?
díky

Zaslat odpověď >

Palooo(10.9.2013 10:20)#015135

dorobil som tam aby to pri refreshe ktory sa uskutocnuje kazdych 5minut tam aj dopisalo cas

:))) ale viac by ma zaujimalo ako ste dokazali urobit to prepojenie s webom na presne danu sekciu ????

- je tam aj pridane makro s tym mojim nepodarkom co otvara internet explorer a rucne to filtrujem :))
- ale vas sposob je omnoho lepsi ... len netusim ako sa to robi

Příloha: zip

15135_test.zip (20kB, staženo 34x)

citovat

bwian(10.9.2013 16:41)#015150

ty jo, to je přesně ono, co jsem potřeboval... super... já bych na to nepřišel... díky

propojení s webem je poměrně jednoduché...
Panel nástrojů Data - Z webu - najít příslušnou web adresu a označit tabulku, kterou chci získávat. Ve vlastnostech získávané oblasti lze pak nastavit např. to, aby se data stahovala v určitý intervalcitovat

Palooo(11.9.2013 8:47)#015157

tj. tak jednoduche ja dakujem tiez uz som zas onieco chytrejsi :)citovat

eLCHa(11.9.2013 10:14)#015158

Mno když se kouknu na toto řešení, tak musím reagovat
If Target.Cells.Count = 288 Then

Ve chvíli, kdy se na stránkách ta tabulka nějak změní, přestane to fungovat, protože je zde konstanta 288 buněk a to je veliká nejistota
Další, málo pravděpodobná, ale přece jen možnost, že někde upravíte 288 buněk a čas se upraví v nesprávnou chvíli, kdy se to netýká dané tabulky

Proto je třeba využít QueryTable, např. takto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ActiveSheet.QueryTables(1).ResultRange.Address Then
Range("B2").Value = Now
End If
End Sub

Ikdyž myslím, že aktualizovat co 5 minut je docela srandacitovat

Palooo(11.9.2013 10:36)#015159

tak uz viem ze to je aj QueryTables(1) :))

.. urobil som to podla toho ake som mal vedomosti ... ted uz viem pracovat aj s QueryTables .... resp. nikdy som takto s databazou nerobil .. kedze ja radsej si sam definujem poliacitovat

eLCHa(11.9.2013 10:41)#015160

Nejlepší ovšem bude využít událost
Private Sub QueryTable_AfterRefresh(Success As Boolean)

Viz příloha

Příloha: zip

15160_qtaktualizace.zip (20kB, staženo 32x)

citovat

eLCHa(11.9.2013 10:47)#015161

@Palooo
urobil som to podla toho ake som mal vedomosti

To je v pořádku, jen je potřeba hledat taková řešení, aby zahrnovalo i možné vlivy zvenčí. A na to se konstanta nehodí.citovat

Téma: čas aktualizace dat

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje