Microsoft Office Excel
uređuje Dragan Grbić

Da li je upit izvršen?

Nivo:
NIVO 4 - Grupa priloga na ovom nivou predstavlja razne ekspertske tehnike rada u Office programima, među kojima se nalaze i one koje nisu uobičajene među većinom korisnika. Većina ovih priloga zahteva veoma napredno poznavanje Windowsa i Officea.

Programirana kontrola stanja izvršenosti upita je veoma osetljivo pitanje. Ne možete predvideti vreme izvršavanja i zato bi bilo najbolje da uspostavite redosled komandi pre i posle izvršenog upita. Evo kako ćete to učiniti...

Mogućnost Excela da pristupi spoljnom sadržaju i uveze neke podatke predstavlja važnu alatku u korporativnom okruženju. Lakoća kojom se prave razne analize podataka rasterećuje projektante baza podataka od potrebe da formiraju namenske upite i analize u samoj bazi. Međutim, u automatizaciji postupaka postoji jedna nezgoda: ne može se predvideti koliko će tačno trajati osvežavanje ranije formiranog upita. Ako se upit pozove iz makroa, nije prikladno nastavljati neko izvršavanje u istom makrou, pošto VBA ne ispituje da li je osvežavanje završeno; to znači da ne smete izvoditi kompletan posao unutar istog makroa.

Rešenje ipak postoji, a sastoji se u tome da ćete poziv osvežavanja upita odvojiti u poseban makro; prethodno ćete definisati klasu upita i u njoj pripremiti makroe događaja BeforeRefresh i AfterRefresh, u kojima ćete definisati sve potrebne akcije pre i posle osvežavanja.

Evo vrlo skraćene šeme koda: uđite u VBE, ubacite novi modul klase (Insert/Class Module) i u njemu formirajte sledeće makroe događaja:

' kod koji treba uneti u Class Module
' pretpostavka je da se klasa zove Class1

Public WithEvents qt As QueryTable

Private Sub qt_BeforeRefresh(Cancel As Boolean)
  '
  ' sve akcije pre osvežavanja upita
  '
End Sub

Private Sub qt_AfterRefresh(ByVal Success As Boolean)
  '
  ' sve akcije posle osvežavanja upita
  '
End Sub

Potom ubacite novi (običan) modul i tamo napišite sledeći makro:

' kod koji treba ubaciti u običan modul
Dim Upit As New Class1

Sub OsveziUpit()
  Set Upit.qt = Thisworkbook.Sheets(1).QueryTables(1)
End Sub

Kada želite da osvežite upit, pokrenite makro iz dijaloga Tools/Macro/Macros (ALT+F8). Da bi se ceo scenario pravilno izveo pri otvaranju radne sveske, kada se upit podrazumevano osvežava, obezbedite i makro Auto_Open koji će pozvati celu spremljenu garnituru na izvršavanje:

' obezbeđujemo izvršavanje upita
' pri otvaranju radne sveske
'
Sub Auto_Open()
OsveziUpit
End Sub

Detaljniji komentar i opis ove tehnike pronaći ćete u bazi znanja Microsofta u članku Q182735.