VBA GetOpenFilename | Kuidas kasutada GetBApenFilename meetodit VBA-s?

GetOpenFilename on meetod, mis on ka FSO atribuut, seda meetodit kasutatakse VBA-s kindla failinimega faili leidmiseks ja selle valimiseks. Selle meetodi oluline tegur on selle avamiseks pakutava failinime tee, me saab funktsioonis failinime tee edasi anda või palume kasutajal selle valimiseks esitada faili tee.

Exceli VBA rakendus. GetOpenFilename

On olukordi, kus peame pääsema juurde konkreetsele failinimele ja see võib olla võimalik VBA kodeerimise abil. Failile juurdepääsu saamiseks peame mainima ka kausta teed ja faili nime koos selle faililaiendiga. Failinime saamiseks annavad paljud kodeerijad failide tee ja failinime sisestamise valikutena VBA-sisestuskasti. Kuid see pole hea võimalus harjutamiseks, sest kui esitate sisendkasti kasutaja ees, ei mäleta nad alati faili teed, tagasilööke ühe kausta eraldamiseks teisest kaustast, failinimesid ja failide laiendusi . See muudab kasutaja sisestatud sisukamaks ja lõpuks keeratakse kõik kokku ka siis, kui on väike tühimärk. Parim viis on asendada sisendkast VBA meetodiga nimega “GetOpenFileName”.

Selles artiklis me näitame teile, kuidas kasutada faili nime ilma vigadeta VBA GetOpenFileName abil.

Mida teeb GetOpenFilename Exceli VBA-s?

VBA “GetOpenFileName” võimaldab kasutajal faili avada arvutist, millega töötame, faili avamata.

Meetodi “GetOpenFileName” abil saame tegelikult esitada kasutaja ees dialoogiboksi faili valimiseks vajalikus kaustas. „GetOpenFileName” kopeerib faili asukoha koos faili nime ja laiendiga.

GetOpenFilename'i süntaks Exceli VBA-s

Heitke pilk meetodi "GetOpenFilename" süntaksile.

  • Failifilter: Selles argumendis saame täpsustada, milliseid faile kuvamiseks valida. Näiteks kui mainite „Exceli failid, *. Xlsx”, kuvatakse ainult Exceli laiendiga „xlsx” salvestatud Exceli failid, muid faile ei kuvata. Kui ignoreerite, kuvatakse kõikvõimalikud failid.
  • Filtri register: sellega piirame kasutaja valima failitüübi. Failifiltris saab loetleda täpsustatavate filtrite arvu .
  • Pealkiri: see näitab valitud faili dialoogiboksi pealkirja.
  • Nuputekst: see on mõeldud ainult Macintoshi jaoks.
  • Mitmikvalimine: TRUE, kui soovite valida mitu faili või muidu FALSE. Vaikeväärtus on FALSE.

GetOpenFilename'i näide Exceli VBA-s

Allpool on toodud VBA rakenduse näited. GetOpenFilename.

Selle VBA GetOpenFilename Exceli malli saate alla laadida siit - VBA GetOpenFilename Exceli mall

Kirjutame faili nime ja tee aadressi saamiseks koodi.

1. samm: käivitage alamprogramm.

Kood:

 Alam GetFile_Example1 () Lõpeta alam 

2. samm: kuulutage muutuja stringiks.

Kood:

 Sub GetFile_Example1 () Dim FileName kui stringi lõpp alam 

3. samm: selle muutuja jaoks määrame GetOpenFileName.

Kood:

 Sub GetFile_Example1 () Dim FileName stringina FileName = Application.GetOpenFilename () End Sub 

Praeguse seisuga olen eiranud kõiki parameetreid.

4. samm: nüüd kuvage teatekastis muutuja tulemus.

Kood:

 Sub GetFile_Example1 () Dim failinimi stringina FileName = Application.GetOpenFilename () MsgBoxi failinimi End Sub 

Nüüd käivitage kood Exceli kiirklahvi F5 kaudu või käsitsi, faili valimiseks kuvatakse allpool dialoogiboks.

Valin suvalise faili ja klõpsan nuppu OK.

Niipea kui faili valisin, sain VBA-s sellise sõnumikasti. See näitab kogu kausta teed ja valitud Exceli failinime koos faililaiendiga.

Nagu ülaltoodud pildil näeme, võisime näha igasuguseid faile. Nüüd lisan esimese parameetri, st Failifilter kui “Exceli failid, *. Xlsx”.

Kood:

 Sub GetFile_Example1 () Hämardab failinime stringina Failinimi = Application.GetOpenFilename (FileFilter: = "Exceli failid, *. Xlsx") MsgBoxi failinimi Lõpp-alam 

Kui käivitan selle koodi F5-klahvi abil või käsitsi, näen ainult Exceli faile laiendiga “xlsx”.

Nii saame kausta tee koos faili nime ja laiendiga hankimiseks kasutada meetodit VBA Application.GetOpenFileName.


$config[zx-auto] not found$config[zx-overlay] not found