Želite sebi ali svojim uporabnikom omogočiti hiter način za iskanje in odpiranje datoteke v Excelu? Ta makro uporablja preprosto tehniko, ki odpre prijazno pogovorno okno, ki vam omogoča, da poiščete in odprete datoteko Excel po vaši izbiri.
Kako deluje makro
Ta makro odpre pogovorno okno, ki ga vidite tukaj, in uporabniku omogoči brskanje in odpiranje datoteke Excel.
Pogovorno okno Odpri, ki ga aktivira makro.
Takole deluje ta makro:
Podmakro1()
1. korak: Definirajte spremenljivko niza
Dim FName kot različica
2. korak: Metoda GetOpenFilename aktivira pogovorno okno
FName = Application.GetOpenFilename( _
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Izberite delovni zvezek za odpiranje", _
MultiSelect:=False)
3. korak: Če je bila izbrana datoteka, jo odprite!
Če FName <> False Potem
Delovni zvezki.Odpri Ime datoteke:=Fime
Konec Če
Končni sub
V 1. koraku makro razglasi spremenljivko Variant, ki vsebuje ime datoteke, ki ga izbere uporabnik. FName je ime vaše spremenljivke.
V 2. koraku uporabite metodo GetOpenFilename, da prikličete pogovorno okno, ki vam omogoča brskanje in izbiro datoteke, ki jo potrebujete.
Metoda GetOpenFilename podpira nekaj prilagodljivih parametrov. Parameter FileFilter vam omogoča, da določite vrsto datoteke, ki jo iščete. Parameter Naslov vam omogoča, da spremenite naslov, ki se prikaže na vrhu pogovornega okna. Parameter MultiSelect vam omogoča, da omejite izbiro na eno datoteko.
Če uporabnik izbere datoteko v pogovornem oknu, se spremenljivka FName napolni z izbranim imenom datoteke. V 3. koraku preverite, ali je spremenljivka FName prazno. Če spremenljivka ni prazna, uporabite metodo Open predmeta Workbooks, da odprete datoteko.
Kako uporabljati makro
Če želite implementirati ta makro, ga lahko kopirate in prilepite v standardni modul:
Aktivirajte urejevalnik Visual Basic s pritiskom na Alt+F11 na tipkovnici.
Z desno tipko miške kliknite ime projekta/delovnega zvezka v oknu projekta.
Izberite Vstavi → Modul.
V novo ustvarjeni modul vnesite ali prilepite kodo.
(Neobvezno) Dodeli makro gumbu.