• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: čas aktualizace dat

Zaslal/a bwian 9.9.2013 12:57

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

Příloha: 15125_cas-aktualizace.zip (11kB, staženo 28x)

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: 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: 15160_qtaktualizace.zip (20kB, staženo 31x)

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse