Excel VBA GetOpenFileName

Există multe modalități de a deschide orice fișier. Există, de asemenea, mai multe modalități de a deschide același fișier. În VBA, avem diferite funcții prin care putem deschide orice fișier. Putem deschide fișierul punând calea fișierului în cod VBA, putem chiar înregistra acest proces. Dar cel mai bun mod este să deschideți orice fișier în VBA este cu ajutorul aplicației VBA GetOpenFileName . Așa cum spune și numele, este pur și simplu aplicat la deschiderea oricărui fișier în VBA.

În alte funcții sau aplicații care funcționează pe același principiu, este posibil să fie nevoie să copiem fișierul fișierului separat prin versiuni posterioare, păstrând numele folderului și spațiile exacte între revers. De asemenea, poate fi necesar să introducem numele exact al fișierului împreună cu extensia pe care dorim să o deschidem. Dar în VBA GetOpenFileName, trebuie doar să selectăm fișierul din locație. Va oferi caseta de unde putem răsfoi fișierul în care este păstrat, iar extensia fișierului va fi, de asemenea, rezolvată.

Sintaxa GetOpenFilename în VBA

Să ne uităm mai jos formula pentru GetOpenFilename în Excel VBA.

Mai jos este argumentul aplicației VBA GetOpenFileName.

  • FileFilter - În acest lucru, putem defini ce fel de fișier dorim să vedem. De exemplu, dacă menționăm „Fișiere Excel, *. Xlsx”, atunci va găsi și va afișa toate fișierele Excel în format .xlsx. Dacă menționăm „Fișiere PDF, *. Pdf”, atunci va găsi și va afișa numai toate fișierele pdf.
  • FilterIndex - Prin aceasta, putem permite unui utilizator să restricționeze să selecteze tipul de fișier. Putem specifica numărul de fișiere pe care trebuie să le afișăm.
  • Titlu - Afișează fișierul selectat fișier în titlul casetei de dialog.
  • ButtonText - Este doar pentru utilizatorii MacBook.
  • MultiSelect - Dacă selectăm mai multe fișiere, atunci va fi ADEVĂRAT sau altfel va fi FALS, care este oricum o valoare implicită.

Cum să deschideți fișierul folosind GetOpenFileName în Excel VBA?

Mai jos sunt diferite exemple pentru a deschide un fișier folosind aplicația GetOpenFileName în excel VBA.

Puteți descărca acest șablon Excel VO GetOpenFileName aici - Șablonul VBA GetOpenFileName Excel

Excel VBA GetOpenFileName - Exemplul # 1

În acest exemplu, vom vedea mai întâi cum să deschideți un fișier excel. Urmați pașii de mai jos pentru a utiliza GetOpenFileName în Excel VBA:

Pasul 1: Accesați meniul Insert și faceți clic pe Modul pentru a-l deschide.

Pasul 2: Scrieți subcategoria Vop Getofenfilename sau alegeți orice alt nume, după alegerea dvs. pentru a defini Subcategoria.

Cod:

 Sub OpenFile () End Sub

Pasul 3: Acum definiți o variabilă și dați-i o șiruri așa cum se arată mai jos. Alegerea unei șiruri, deoarece vom alege sau selecta numele fișierului.

Cod:

 Sub OpenFile () Dim A As Sub End Cap

Pasul 4: Acum, în variabila definită A, folosiți aplicația, așa cum se arată mai jos.

Pasul 5: Acum căutați și selectați numele GetOpenFileName din lista de aplicații activate, așa cum se arată mai jos.

Pasul 6: Folosiți acum MsgBox pentru a obține locația fișierului pe care îl selectăm.

Cod:

 Sub OpenFile () Dim A As String A = Application.GetOpenFilename () MsgBox A Sub End

Pasul 7: Acum compilați codul apăsând tasta funcțională F5 și executați-l făcând clic pe butonul Redare. Acum răsfoiți fișierul pe care dorim să îl selectăm. Aici am urmat calea și am selectat fișierul Excel numit Test Test, care de obicei este în format .xlsx . Faceți clic pe Deschide.

Va arăta calea acelui fișier pe care l-am selectat anterior într-o casetă de mesaje, așa cum se arată mai jos.

Pasul 8: Acum, conform sintaxei, vom folosi Filefilter în pachetul aplicației GetOpenFilename. După cum știm, este menit să alegem tipul de fișier pe care dorim să îl deschidem. Așa că vom pune „Fișiere Excel” pentru acesta, așa cum se arată mai jos.

Cod:

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

Pasul 9: Acum puneți extensia fișierului Excel pe care l-am selectat mai devreme. Era „ .xlsx ”, așa că vom păstra asta și în FileFilter.

Cod:

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

Pasul 10: Acum, vom rula codul complet din nou. În folderul de navigare, vom primi doar fișiere Excel care sunt disponibile în folderul pe care l-am răsfoit anterior.

Și dacă încercăm să vedem orice alt format de fișier sau extensie în fișierele Excel, va afișa din nou doar fișiere Excel.

Excel VBA GetOpenFileName - Exemplul # 2

În același mod, putem vedea deschide numele fișierului cu extensia „ .pdf ”. Urmați pașii de mai jos pentru a utiliza GetOpenFileName în Excel VBA:

Pasul 1: Scrieți din nou codul pe care l-am văzut în exemplul 1.

Cod:

 Sub OpenFile1 () Dim A As String A = Application.GetOpenFilename () MsgBox A Sub End

Pasul 2: Ne va duce la aceeași fereastră sau altfel navigăm în același folder. Acum selectați oricare dintre fișierele PDF și faceți clic pe Deschide.

Ne va oferi calea fișierului selectat.

Pasul 3: Acum pentru a obține fișierul PDF selectat, în sintaxa FileFilter, scrieți „Fișiere PDF” în loc de „Fișiere Excel” și selectați extensia PDF care este „ .pdf ” așa cum se arată mai jos.

Cod:

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

Pasul 4: Compilați din nou codul și rulați după el. Vom obține folderul browserului pentru a deschide fișierele. În acest sens, vom primi fișierele cu extensia „ .pdf ” așa cum se arată mai jos.

Și dacă încercați să filtrați alte formate de fișiere, atunci ne va permite din nou să vedem doar fișiere PDF doar așa cum se arată mai jos.

Și dacă nu selectăm niciun fișier și ieșim din fereastră, atunci va da un mesaj implicit care este False .

Pro de Excel VBA GetOpenFileName

  • VBA GetOpenFileName ne ajută să deschidem direct fișierul fără a lipi calea acelui fișier în cod VBA.
  • Nu trebuie să schimbăm calea fișierelor de mai multe ori.
  • Căutarea și selectarea fișierelor prin acest lucru este la fel de simplă ca accesarea folderului respectiv pentru a-l deschide.

Contra de Excel VBA GetOpenFileName

  • Trebuie să schimbăm extensia unui fișier pe care dorim să îl deschidem în cazul în care există o modificare.

Lucruri de amintit

  • Modificați extensia fișierului ori de câte ori doriți să deschideți o altă versiune a fișierului.
  • Caseta de mesaje cu un mesaj ca FALSE este mesajul implicit care va veni de fiecare dată când nu selectăm niciun fișier de deschis.
  • Un astfel de proces nu poate fi creat cu ajutorul funcției Record Macro.
  • Nu uitați să salvați fișierul în format Excel activat pentru Macro. Deci, codul VBA scris va fi păstrat.

Articole recomandate

Acesta este un ghid pentru VBA GetOpenFileName. Aici vom discuta despre cum să deschideți un fișier folosind aplicația GetOpenFileName în Excel, folosind codul VBA, împreună cu câteva exemple practice și șablonul excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. Găsirea și înlocuirea VBA (exemple)
  2. Fișe de lucru de grup în Excel
  3. Carte de lucru VBA
  4. Referințe celulare în Excel

Categorie:

VBA