Excel VBA GetOpenFileName

Sokféle módon nyithat meg fájlokat. Ugyanakkor ugyanannak a fájlnak a megnyitására többféle módon is van lehetőség. A VBA-ban különböző funkciók vannak, amelyekkel bármilyen fájlt megnyithatunk. A fájlt úgy nyithatjuk meg, hogy a fájl elérési útját VBA-kódba helyezzük, ezt a folyamatot is rögzíthetjük. A legjobb módszer bármilyen fájl megnyitására a VBA-ban a VBA GetOpenFileName alkalmazás segítségével. Ahogy a neve is mondja, pusztán alkalmazásra kész, bármilyen fájlt megnyit a VBA-ban.

Más, ugyanazon az elven működő funkciók vagy alkalmazások esetén előfordulhat, hogy a fájl fájlt visszavágással elválasztva kell lemásolni, a mappa nevét és a pontos szóközöket megtartva a visszajelzés között. Lehet, hogy be kell írnunk a pontos fájlnevet és a kiterjesztést, amelyet meg akarunk nyitni. De a VBA GetOpenFileName fájlban csak ki kell választania a fájlt a helyről. Ez megadja a dobozt, ahonnan böngészhetjük a fájlt, ahol megőrzik, és a fájl kiterjesztése is megjavul.

A GetOpenFilename szintaxisa a VBA-ban

Nézzük meg az alábbiakban a GetOpenFilename képletét az Excel VBA alkalmazásban.

Az alábbiakban bemutatjuk a VBA GetOpenFileName alkalmazás érvelését.

  • FileFilter - Ebben meghatározhatjuk, hogy milyen fájlt szeretnénk látni. Például, ha megemlítjük az „Excel Files, * .xlsx” fájlt, akkor az megkeresi és megjeleníti az összes .xlsx formátumú Excel fájlt. Ha megemlítjük a „PDF fájlok, *. Pdf” fájlt, akkor csak az összes pdf fájlt megtalálja és jeleníti meg.
  • FilterIndex - Ezzel megengedhetjük a felhasználónak, hogy korlátozza a fájltípus kiválasztását. Megadhatjuk a megjelenítendő fájlok számát.
  • Cím - Megjeleníti a kiválasztott fájlt a párbeszédpanel címében.
  • ButtonText - Csak MacBook felhasználók számára készült.
  • MultiSelect - Ha több fájlt választunk ki, akkor az IGAZ lesz, máskülönben FALSE lesz, ami egyébként alapértelmezett érték.

Hogyan lehet megnyitni a fájlt a GetOpenFileName használatával az Excel VBA alkalmazásban?

Az alábbiakban bemutatjuk a különféle példákat a fájl megnyitásához a GetOpenFileName alkalmazás használatával az Excel VBA alkalmazásban.

Itt töltheti le a VBA GetOpenFileName Excel sablont - VBA GetOpenFileName Excel sablon

Excel VBA GetOpenFileName - 1. példa

Ebben a példában meglátjuk, hogyan lehet először megnyitni az Excel fájlt. Kövesse az alábbi lépéseket a GetOpenFileName használatához az Excel VBA-ban:

1. lépés: Lépjen a Beszúrás menübe, és kattintson a Modul elemre annak megnyitásához.

2. lépés: Írja be a VBA Getopenfilename alkategóriáját, vagy válasszon más nevet az alkategória meghatározásához.

Kód:

 Sub OpenFile () Sub

3. lépés: Most definiáljon egy változót, és az alább látható módon adjon neki egy karakterláncot. Karakterlánc kiválasztása, mert a fájl nevét választjuk vagy választjuk ki.

Kód:

 Sub OpenFile () Dim A A String End Sub

4. lépés: Most egy meghatározott A változóban használja az alább látható alkalmazást.

5. lépés: Most keressen, és válassza az GetOpenFileName lehetőséget az aktivált alkalmazások listájáról, az alább látható módon.

6. lépés: Most használja az MsgBox-ot, hogy megkapjuk a kiválasztott fájl helyét.

Kód:

 Sub OpenFile () Dim A As String A = Alkalmazás.GetOpenFilename () MsgBox A End Sub

7. lépés: Most fordítsa le a kódot az F5 funkciógomb megnyomásával, és futtassa a Play gombra kattintással. Most keresse meg azt a fájlt, amelyet ki akarunk választani. Itt követtük az utat és kiválasztottuk a Test File nevű excel fájlt, amely általában .xlsx formátumban van. Kattintson a Megnyitás gombra.

Megmutatja annak a fájlnak az útját, amelyet korábban kiválasztottunk egy üzenet mezőbe, az alább látható módon.

8. lépés: A szintaxis szerint a Filefilter- t a GetOpenFilename alkalmazás zárójelébe fogjuk használni. Mint tudjuk, azt a fájltípust választottuk, amelyet szeretnénk megnyitni. Tehát feltesszük az “Excel fájlokat” az alább látható módon.

Kód:

 Sub OpenFile () Dim A As String A = Alkalmazás.GetOpenFilename (Filefilter: = "Excel Files") MsgBox A End Sub

9. lépés: Most tegye be az Excel fájl kiterjesztését, amelyet korábban már kiválasztottunk. „ .Xlsx ” volt, tehát ezt a FileFilterben is meg fogjuk őrizni.

Kód:

 Sub OpenFile () Dim A As String A = Alkalmazás.GetOpenFilename (Filefilter: = "Excel Files, * .xlsx") MsgBox A End Sub

10. lépés: Most újra futtatjuk a teljes kódot. A Tallózás mappában csak azokat az Excel fájlokat fogjuk kapni, amelyek abban a mappában érhetők el, amelyet korábban böngészünk.

És ha megpróbálunk bármilyen más fájlformátumot vagy kiterjesztést látni az Excel fájlok legördülő listájában, akkor ismét csak az Excel fájlok jelennek meg.

Excel VBA GetOpenFileName - 2. példa

Hasonló módon láthatjuk, hogy megnyitjuk a „ .pdf ” kiterjesztésű fájlnevet. Kövesse az alábbi lépéseket a GetOpenFileName használatához az Excel VBA-ban:

1. lépés: Írja meg újra a kódot, amelyet az 1. példában láthattunk.

Kód:

 Sub OpenFile1 () Dim A As String A = Alkalmazás.GetOpenFilename () MsgBox A End Sub

2. lépés: Ugyanazon az ablakon eljut minket, vagy keresse meg ugyanazt a mappát. Most válassza ki a PDF fájlok bármelyikét, és kattintson a Megnyitás gombra.

Ez megadja nekünk a kiválasztott fájl elérési útját.

3. lépés: Most, hogy megkapja a kiválasztott PDF fájlt, a FileFilter szintaxisában, írjon „PDF Files” helyett „Excel Files”, és válassza ki a PDF kiterjesztését, amely „ .pdf ” az alább látható módon.

Kód:

 Sub OpenFile1 () Dim A As String A = Application.GetOpenFilename (Filefilter: = "PDF Files, * .pdf") MsgBox A End Sub

4. lépés: Fordítsa újra a kódot, és futtassa azt követően. Megkapjuk a böngésző mappát a fájlok megnyitásához. Ebben csak a .pdf kiterjesztésű fájlokat fogjuk kapni, amint az alább látható.

És ha megpróbál szűrni más formátumokat, akkor ez ismét lehetővé teszi, hogy csak a PDF fájlokat látjuk, amint az alább látható.

És ha nem választunk ki fájlt, és kilépünk az ablakból, akkor az alapértelmezett üzenetet fog adni, amely hamis .

Az Excel VBA GetOpenFileName előnyei

  • A VBA GetOpenFileName segít a fájl közvetlen megnyitásában anélkül, hogy a fájl elérési útját VBA-kódba illesztenénk.
  • Nem kell többször megváltoztatnunk a fájlok elérési útját.
  • A fájlok között a böngészés és a fájlok kiválasztása ugyanolyan egyszerű, mintha megnyitnák a mappát.

Az Excel VBA GetOpenFileName hátrányai

  • Meg kell változtatnunk egy fájl kiterjesztését, amelyet meg akarunk nyitni, ha abban változás történik.

Dolgok, amikre emlékezni kell

  • Változtassa meg a fájl kiterjesztését, amikor másik fájlt kell megnyitnia.
  • Az Üzenetdoboz FALSE üzenettel, az alapértelmezett üzenet, amely minden alkalommal megjelenik, amikor nem választunk meg fájlokat a megnyitáshoz.
  • Ilyen folyamat nem hozható létre a Makró rögzítése funkcióval.
  • Ne felejtse el menteni a fájlt Macro Enabled Excel formátumban. Így az írásos VBA kód megmarad.

Ajánlott cikkek

Ez a VBA GetOpenFileName útmutatója. Itt tárgyaljuk, hogyan lehet egy fájlt megnyitni az Excel GetOpenFileName alkalmazásával, VBA kóddal, néhány gyakorlati példával és letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. VBA keresés és csere (példák)
  2. Csoportos munkalapok Excelben
  3. VBA munkafüzet
  4. Cellareferenciák az Excelben

Kategória:

VBA