Kas soovite anda endale või oma kasutajatele kiire viisi Excelis faili otsimiseks ja avamiseks? See makro kasutab lihtsat tehnikat, mis avab sõbraliku dialoogiboksi, mis võimaldab teil sirvida ja avada valitud Exceli faili.
Kuidas makro töötab
See makro avab siin kuvatava dialoogiboksi, mis võimaldab kasutajal Exceli faili sirvida ja avada.
Makro aktiveeritud dialoogiboks Ava.
See makro töötab järgmiselt.
Alammakro1()
1. samm: määrake stringi muutuja
Dim FName kui variant
2. samm: GetOpenFilename meetod aktiveerib dialoogiboksi
FName = Application.GetOpenFilename(_
FileFilter:="Exceli töövihikud,*.xl*", _
Title:="Valige avamiseks töövihik", _
MultiSelect:=False)
3. samm: kui fail valiti, avage see!
Kui FName <> False, siis
Workbooks.Open Filename:=FName
Lõpeta Kui
Lõpeta alam
1. sammus deklareerib makro muutuja Variant, mis sisaldab kasutaja valitud failinime. FName on teie muutuja nimi.
2. sammus kasutate meetodit GetOpenFilename, et avada dialoogiboks, mis võimaldab teil sirvida ja valida vajalikku faili.
GetOpenFilename meetod toetab mõnda kohandatavat parameetrit. Parameeter FileFilter võimaldab teil määrata otsitava faili tüübi. Parameeter Pealkiri võimaldab muuta dialoogiboksi ülaosas kuvatavat pealkirja. MultiSelecti parameeter võimaldab piirata valikut ühe failiga.
Kui kasutaja valib dialoogiboksist faili, täidetakse muutuja FName valitud failinimega. 3. sammus kontrollite, kas muutuja FName on tühi. Kui muutuja pole tühi, kasutate faili avamiseks objekti Töövihikud meetodit Open.
Kuidas makrot kasutada
Selle makro rakendamiseks saate selle kopeerida ja kleepida standardmoodulisse:
Aktiveerige Visual Basic Editor, vajutades klaviatuuril Alt+F11.
Paremklõpsake projekti aknas projekti/töövihiku nimel.
Valige Lisa → Moodul.
Tippige või kleepige kood vastloodud moodulisse.
(Valikuline) Määrake makro nupule.