Excel VBA GetOpenFileName

Mis tahes faili avamiseks on palju võimalusi. Kuid sama faili avamiseks on ka mitu võimalust. VBA-s on meil erinevad funktsioonid, mille abil saame avada mis tahes faili. Saame faili avada, sisestades faili tee VBA-koodi, saame ka selle protsessi salvestada. Kuid parim viis on mis tahes faili avamine VBA-s rakenduse VBA GetOpenFileName abil. Nagu nimigi ütleb, on see mõeldud kasutamiseks VBA-s mis tahes faili avamisel.

Muude funktsioonide või rakenduste puhul, mis töötavad samal põhimõttel, peame võib-olla kopeerima kaldkriipsudega eraldatud faili, hoides kausta nime ja täpset tühikut kaldkriipsu vahel. Samuti peame võib-olla sisestama täpse failinime koos laiendiga, mille tahame avada. Kuid rakenduses VBA GetOpenFileName peame faili lihtsalt asukohast valima. See annab kasti, kust saame faili sirvida, kus seda hoitakse, ja faili laiend saab ka fikseeritud.

GetBApenFilename süntaks VBA-s

Vaadakem allpool programmi Excel VBA GetOpenFilename valemit.

Allpool on esitatud VBA GetOpenFileName'i rakenduse argument.

  • FileFilter - selles saame määratleda, millist faili me näha tahame. Näiteks kui nimetame „Excel Files, * .xlsx”, siis see leiab ja kuvab kõik .xlsx-vormingus Exceli failid. Kui mainime “PDF-faile, * .pdf”, siis see leiab ja kuvab ainult kõik pdf-failid.
  • FilterIndex - sellega saame lubada kasutajal failitüübi valimist piirata. Saame määrata failide arvu, mida peame kuvama.
  • Pealkiri - see näitab valitud faili dialoogiboksi pealkirjas.
  • ButtonText - see on mõeldud ainult MacBooki kasutajatele.
  • MultiSelect - kui valime mitu faili, siis on see TRUE või muidu FALSE, mis on vaikimisi väärtus.

Kuidas faili avada rakendusega GetOpenFileName Excel VBA-s?

Allpool on toodud erinevad näited faili avamiseks, kasutades rakendust GetOpenFileName Exceli VBA-s.

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

Excel VBA GetOpenFileName - näide # 1

Selles näites näeme, kuidas kõigepealt avada exceli fail. GetOpenFileName'i kasutamiseks rakenduses Excel VBA toimige järgmiselt.

1. samm: minge menüü Lisamine ja avamiseks klõpsake moodulil.

2. samm: kirjutage alamkategooria VBA getopenfilename või valige alamkategooria määratlemiseks mõni muu nimi.

Kood:

 Alam alamfail () Lõpeta alam

3. samm: määratlege nüüd muutuja ja andke sellele string, nagu allpool näidatud. Stringi valimine, kuna valime või valime failinime.

Kood:

 Sub OpenFile () timmib kui stringi lõpp-alam

4. samm: kasutage määratletud muutuja A korral rakendust, nagu allpool näidatud.

5. samm: otsige nüüd ja valige aktiveeritud rakenduste loendist GetOpenFileName, nagu allpool näidatud.

6. samm: kasutage nüüd MsgBoxi, et saaksime valitud faili asukoha.

Kood:

 Sub OpenFile () Dim A kui string A = rakendus.GetOpenFilename () MsgBox A End Sub

7. samm: kompileerige kood nüüd funktsiooniklahvi F5 vajutades ja käivitage see nupul Esita klõpsates. Sirvige nüüd faili, mille tahame valida. Siin oleme liikunud teele ja valinud Exceli faili nimega Test File, mis tavaliselt on .xlsx vormingus. Klõpsake nuppu Ava.

See näitab selle faili tee, mille oleme varem valinud, sõnumikasti, nagu allpool näidatud.

8. samm: nüüd, nagu süntaks, kasutame rakendust GetOpenFilename sulgudes Filefilter. Nagu me teame, on see mõeldud selle faili tüübi valimiseks, mida me selle avada soovime. Seega paneme selle jaoks Exceli failid, nagu allpool näidatud.

Kood:

 Alam OpenFile () Tühjendatakse A kui string A = Rakendus.GetOpenFilename (Filefilter: = "Excel Files") MsgBox A End Sub

9. samm: pange nüüd meie varem valitud Exceli faili laiend. See oli “ .xlsx ”, seega hoiame seda ka FileFilteris.

Kood:

 Sub OpenFile () Dim A kui string A = Application.GetOpenFilename (Filefilter: = "Excel Files, * .xlsx") MsgBox A End Sub

10. samm: nüüd käivitame kogu koodi uuesti. Sirvimiskataloogi saame ainult Exceli faile, mis on saadaval selles kaustas, mida oleme varem sirvinud.

Ja kui proovime Exceli failides näha mõnda muud failivormingut või laiendit, kuvatakse selles uuesti ainult Exceli failid.

Excel VBA GetOpenFileName - näide # 2

Samal viisil näeme avatud failinime laiendiga “ .pdf ”. GetOpenFileName'i kasutamiseks rakenduses Excel VBA toimige järgmiselt.

1. samm: kirjutage uuesti kood, mida nägime-1.

Kood:

 Alam OpenFile1 () Dim A kui string A = rakendus.GetOpenFilename () MsgBox A End Sub

2. samm: see viib meid samasse aknasse või sirvib sama kausta. Valige nüüd mõni PDF-fail ja klõpsake nuppu Ava.

See annab meile valitud faili tee.

3. samm: Nüüd, kui soovite valitud PDF-faili saada, kirjutage FileFilteri süntaksis faili "Excel Files" asemel "PDF Files" ja valige PDF-i laiend, mis on " .pdf ", nagu allpool näidatud.

Kood:

 Alam OpenFile1 () Tühjendatakse A kui string A = Rakendus.GetOpenFilename (Filefilter: = "PDF Files, * .pdf") MsgBox A End Sub

4. samm: uuesti kompileerige kood ja käivitage pärast seda. Failide avamiseks saame brauseri kausta. Selles osas saame faile ainult laiendiga “ .pdf ”, nagu allpool näidatud.

Ja kui proovite filtreerida muid failivorminguid, võimaldab see meil jälle näha ainult PDF-faile, nagu allpool näidatud.

Ja kui me ei vali ühtegi faili ja väljume aknast, siis annab see vaikesõnumi, mis on Vale .

Excel VBA GetOpenFileName plussid

  • VBA GetOpenFileName aitab meil faili otse avada, ilma et faili tee VBA-koodi kleepitaks.
  • Me ei pea failide asukohta mitu korda muutma.
  • Selle kaudu failide sirvimine ja valimine on sama lihtne kui selle kausta avamine.

Excel VBA GetOpenFileName miinused

  • Peame muutma faili laiendit, mille tahame avada, kui selles tehakse muudatusi.

Asjad, mida meeles pidada

  • Muutke faili laiendit alati, kui peate avama faili uue versiooni.
  • Sõnumikast, mille teade on VIGA, on vaikesõnum, mis tuleb iga kord, kui me ei vali ühtegi avatava faili.
  • Sellist protsessi ei saa funktsiooni Salvesta makro abil luua.
  • Ärge unustage salvestada faili vormingus Macro Enabled. Nii et see kirjutatud VBA-kood säiliks.

Soovitatavad artiklid

See on VBA GetOpenFileName'i juhend. Siin arutatakse, kuidas faili avada Excelis rakenduse GetOpenFileName abil, kasutades VBA-koodi koos mõne praktilise näite ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA otsimine ja asendamine (näited)
  2. Rühma töölehed Excelis
  3. VBA töövihik
  4. Lahtrite viited Excelis

Kategooria:

VBA