Norite suteikti sau arba savo vartotojams greitą būdą ieškoti ir atidaryti failą programoje „Excel“? Šioje makrokomandoje naudojama paprasta technika, atverianti draugišką dialogo langą, leidžiantį naršyti ir atidaryti pasirinktą „Excel“ failą.
Kaip veikia makrokomandas
Ši makrokomanda atidaro dialogo langą, kurį matote čia, ir leidžia vartotojui naršyti ir atidaryti „Excel“ failą.
Dialogo langas Atidaryti, suaktyvintas makrokomandos.
Štai kaip veikia ši makrokomanda:
Sub-makro1()
„1 veiksmas: apibrėžkite eilutės kintamąjį
Dim FName kaip variantas
2 veiksmas: „GetOpenFilename Method“ suaktyvina dialogo langą
FName = Application.GetOpenFilename(_
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Pasirinkite atidaryti darbaknygę", _
MultiSelect:=False)
'3 veiksmas: jei pasirinktas failas, atidarykite jį!
Jei FName <> False Tada
Workbooks.Open Filename:=FName
Pabaiga, jei
Pabaigos sub
1 veiksme makrokomanda deklaruoja varianto kintamąjį, kuriame yra vartotojo pasirinktas failo pavadinimas. FName yra jūsų kintamojo pavadinimas.
2 veiksme naudojate GetOpenFilename metodą, kad iškviestumėte dialogo langą, leidžiantį naršyti ir pasirinkti reikalingą failą.
„GetOpenFilename“ metodas palaiko keletą pritaikomų parametrų. Parametras FileFilter leidžia nurodyti ieškomo failo tipą. Parametras Title leidžia pakeisti pavadinimą, kuris rodomas dialogo lango viršuje. Parametras MultiSelect leidžia apriboti pasirinkimą iki vieno failo.
Jei vartotojas dialogo lange pasirenka failą, kintamasis FName užpildomas pasirinktu failo pavadinimu. 3 veiksme patikrinkite, ar nėra tuščio FName kintamojo. Jei kintamasis nėra tuščias, failui atidaryti naudokite objekto Workbooks metodą Atidaryti.
Kaip naudoti makrokomandą
Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:
Suaktyvinkite „Visual Basic“ rengyklę paspausdami klaviatūros klavišus Alt+F11.
Dešiniuoju pelės mygtuku spustelėkite projekto / darbaknygės pavadinimą projekto lange.
Pasirinkite Įterpti → Modulis.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje.
(Pasirenkama) Priskirkite makrokomandą mygtukui.