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 - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek různých šablon, sešitů.

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


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


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

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