Vai vēlaties nodrošināt sev vai lietotājiem ātru veidu, kā meklēt un atvērt failu programmā Excel? Šis makro izmanto vienkāršu paņēmienu, kas atver draudzīgu dialoglodziņu, ļaujot pārlūkot un atvērt jūsu izvēlēto Excel failu.
Kā darbojas makro
Šis makro atver šeit redzamo dialoglodziņu, ļaujot lietotājam pārlūkot un atvērt Excel failu.
Dialoglodziņš Atvērt, ko aktivizē makro.
Lūk, kā darbojas šis makro:
Apakšmakro1()
1. darbība: definējiet virknes mainīgo
Dim FName kā variants
2. darbība. GetOpenFilename metode aktivizē dialoglodziņu
FName = Application.GetOpenFilename(_
FileFilter:="Excel darbgrāmatas,*.xl*", _
Title:="Izvēlieties atvērtai darbgrāmatu", _
MultiSelect:=False)
3. darbība. Ja fails ir izvēlēts, atveriet to!
Ja FName <> False, tad
Workbooks.Open Filename:=FName
Beigas Ja
Beigt apakš
1. darbībā makro deklarē mainīgo variantu, kurā ir lietotāja izvēlētais faila nosaukums. FName ir jūsu mainīgā nosaukums.
2. darbībā izmantojiet metodi GetOpenFilename, lai izsauktu dialoglodziņu, kas ļauj pārlūkot un atlasīt vajadzīgo failu.
GetOpenFilename metode atbalsta dažus pielāgojamus parametrus. Parametrs FileFilter ļauj norādīt meklējamā faila veidu. Parametrs Title ļauj mainīt nosaukumu, kas parādās dialoglodziņa augšdaļā. Parametrs MultiSelect ļauj ierobežot atlasi līdz vienam failam.
Ja lietotājs dialoglodziņā atlasa failu, mainīgais FName tiek aizpildīts ar izvēlēto faila nosaukumu. 3. darbībā pārbaudiet, vai FName mainīgais nav tukšs. Ja mainīgais nav tukšs, faila atvēršanai izmantojiet objekta darbgrāmatas metodi Atvērt.
Kā lietot makro
Lai ieviestu šo makro, varat to kopēt un ielīmēt standarta modulī:
Aktivizējiet Visual Basic redaktoru, nospiežot tastatūras taustiņu kombināciju Alt+F11.
Ar peles labo pogu noklikšķiniet uz projekta/darbgrāmatas nosaukuma projekta logā.
Izvēlieties Ievietot → Modulis.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī.
(Neobligāti) Piešķiriet makro pogai.