Želite li sebi ili svojim korisnicima omogućiti brz način traženja i otvaranja datoteke u Excelu? Ova makronaredba koristi jednostavnu tehniku koja otvara prijateljski dijaloški okvir, omogućujući vam da pregledate i otvorite Excel datoteku po vašem izboru.
Kako makro funkcionira
Ova makronaredba otvara dijaloški okvir koji ovdje vidite, dopuštajući korisniku da pregleda i otvori Excel datoteku.
Dijaloški okvir Otvori koji aktivira makronaredba.
Evo kako ovaj makro radi:
Podmakro1()
'Korak 1: Definirajte varijablu niza
Dim FName kao varijanta
'Korak 2: GetOpenFilename metoda aktivira dijaloški okvir
FName = Application.GetOpenFilename( _
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Odaberite radnu knjigu za otvaranje", _
MultiSelect:=False)
'Korak 3: Ako je datoteka odabrana, otvorite je!
Ako FName <> False Onda
Radne knjige.Otvorite Ime datoteke:=FName
Završi ako
Kraj Sub
U koraku 1 makronaredba deklarira varijablu Variant koja sadrži naziv datoteke koji korisnik odabere. FName je naziv vaše varijable.
U koraku 2 koristite metodu GetOpenFilename da biste pozvali dijaloški okvir koji vam omogućuje pregledavanje i odabir datoteke koja vam je potrebna.
Metoda GetOpenFilename podržava nekoliko prilagodljivih parametara. Parametar FileFilter omogućuje vam da odredite vrstu datoteke koju tražite. Parametar Naslov omogućuje vam promjenu naslova koji se pojavljuje na vrhu dijaloškog okvira. Parametar MultiSelect omogućuje vam da ograničite odabir na jednu datoteku.
Ako korisnik odabere datoteku iz dijaloškog okvira, varijabla FName popunjava se odabranim imenom datoteke. U 3. koraku provjeravate ima li prazne varijable FName. Ako varijabla nije prazna, koristite metodu Open objekta Workbooks za otvaranje datoteke.
Kako koristiti makro
Da biste implementirali ovu makronaredbu, možete je kopirati i zalijepiti u standardni modul:
Aktivirajte Visual Basic Editor pritiskom na Alt+F11 na tipkovnici.
Desnom tipkom miša kliknite naziv projekta/radne knjige u prozoru projekta.
Odaberite Umetanje→Modul.
Upišite ili zalijepite kod u novostvoreni modul.
(Izborno) Dodijelite makronaredbu gumbu.