Microsoft Office Excel
uređuje Dragan Grbić

Poziv standardnih dijaloga iz VBA

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.

Izrada aplikacije u Excelu će vas kad-tad dovesti do potrebe da programirate i standardne dijaloge. To i nije neki problem, osim što je prateća dokumentacija u Helpu pomalo škrta.

Svaki standardni dijalog Excela se može pozvati iz VBA modula. U VBA postoji kolekcija objekata dijaloga Application.Dialogs, a metodom .Show dijalog se prikazuje. Primer poziva standardnog dijaloga je:

Application.Dialogs(xlDialogSaveAs).Show

Ovi pozivi imaju i niz opcionih argumenata koji su ekvivalent popune dijaloga. Recimo, može se napisati:

Application.Dialogs(xlDialogOpen).Show ("troskovi.xls")

U ovom slučaju, u polju za ime datoteke će se naći ime navedene datoteke, a dijalog će i dalje čekati na konačnu akciju korisnika.

Lista konstanti za poziv svih oko 250 dijaloga Excela i njihovih opcionih argumenata se može naći u Help sistemu Excela: potražite referencu Built-In Dialog Box Argument Lists. Nažalost, argumenti su prilično loše (čitaj: nikako) dokumentovani, pa preostaje muka oko traženja varijanti poziva dijaloga. Trud bi mogao da se isplati: programiranjem standardnih dijaloga, integrisano rešenje u Excelu može pružiti utisak potpune slobode korisnika, a da se pritom ostvari fina kontrola svih aktivnosti.

U međuvremenu, pomozimo makar sa par detalja.

VBA omogućuje da definišete ponašanje dijaloga. Recimo, ako je potrebno da otvorite neku radnu svesku, makro će glasiti:

Sub OtvoriFajl()
Dim fajl As String
fajl = Application.GetOpenFilename()
If fajl <> "False" Then
    Workbooks.Open fajl
Else
    ' pritisnut je Cancel
End If
End Sub

Ako je potrebno suziti izbor datoteka za otvaranje, kao argument se navodi tekst koji postoji u polju Files of type u dijalogu. Na primer:

fajl = Application.GetOpenFilename("Text Files (*.txt),*.txt")

Sasvim slično funkcioniše i metoda GetSaveAsFilename; detaljnu sintaksu i primer pogledajte u Helpu Excela.

Postoji i opšti način za poziv standardnih dijaloga. Red makroa koji otvara dijalog Open može da glasi:

Application.Dialogs(xlDialogOpen).Show

Ovde je upotrebljena konstanta iz VBA biblioteke za Excel: sve konstante su oblika xlDialogIme. Help sadrži kompletnu listu ovih konstanti. Posebnu pažnju treba obratiti na argumente poziva: njima se sadržaj dijaloga forsirano puni, pa korisnik samo treba da klikne na OK; to je idealan princip da rasteretite korisnika od zamornog biranja opcija. Evo par primera:

Application.Dialogs(xlDialogFormatFont). _
   Show("Andale Mono", 14)

Application.Dialogs(xlDialogSaveAs). _
   Show("pass.xls", , "lozinka")