Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » ostatni » udalost-beforerefresh

Událost BeforeRefresh

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak odchytit událost BeforeRefresh - při načítání z externího zdroje.

Úvodem

Na jedné z diskuzí na webu byl požadavek jak před provedením načtení dat z externího zdroje provést dotaz. Zda opravdu je potřeba načítat data. Tento článek je návodem jak na to.

Datové připojení

Datové připojení nastaveno na kartě Data sekce Připojení. Jak nastavovat připojení není obsahem tohoto článku. Cílem je "odchytit" tuto událost před jejím provedením. Například při otevření sešitu.

Vytvořit class modul

A doplnit kódem:

Public WithEvents qt As QueryTable Private Sub qt_BeforeRefresh(Cancel As Boolean) ' Declare variables. Dim a As Integer Dim My_Prompt As String ' Initialize prompt text for message box. My_Prompt = "Data budou obnovena." ' Get YES or NO result from the message box a = MsgBox("Potřebujete obnovit data?", vbYesNo) ' Zvol Ano - Ne. If a = vbNo Then ' Change prompt text for message box. My_Prompt = "Data nebudou obnovena." ' Cancels the Query Refresh. Cancel = True End If MsgBox My_Prompt End Sub

Dále vytvořit v modulu

Dim X As New Class1 Sub Initialize_It() Set X.qt = ThisWorkbook.Sheets(1).QueryTables(1) End Sub

Inicializace ThisWorkbook

Provedeme při otevření lístu

Private Sub Workbook_Open() Call Initialize_It End Sub

Ke stažení

Soubor událost beforerefresh soubor ve formátu *.xlsm ke stažení zdarma. Soubor využívá makra.

Závěrem

Ať Vám příklad slouží...

Článek byl aktualizován: 01.11.2014 11:50

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.






Excel


Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články

25.03.2017:
ROUNDUP, ROUNDDOWN - zaokrouhlování

07.04.2017:
Řazení Excel - bug - problém

09.04.2017:
Podmínkové funkce Excel - bug - problém


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 3382

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.