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 na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

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 ke stažení zdarma. Soubor využívá makra.

Závěrem

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

Článek byl aktualizován: 19.09.2020 11:02

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

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 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 i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.