Excel VBA GetOpenFileName

Postoji mnogo načina za otvaranje bilo koje datoteke. No, također postoji više načina za otvaranje iste datoteke. U VBA imamo različite funkcije pomoću kojih možemo otvoriti bilo koju datoteku. Datoteku možemo otvoriti tako da stavimo put datoteke u VBA kod, čak možemo i snimiti taj postupak. Ali najbolji način je otvaranje bilo koje datoteke u VBA je uz pomoć VBA GetOpenFileName aplikacije. Kao što ime kaže, čisto se prijavljuje na otvaranje bilo koje datoteke u VBA.

U drugim funkcijama ili aplikacijama koje rade na istom principu, možda ćemo morati kopirati datoteku datoteke odvojene crtama unatrag, zadržavajući naziv mape i točne razmake između crte. Također će nam možda trebati unijeti točno ime datoteke zajedno s nastavkom koji želimo otvoriti. Ali u VBA GetOpenFileName, trebamo samo odabrati datoteku s lokacije. Dat će okvir odakle možemo pregledavati datoteku gdje se čuva, a proširenje datoteke također će se popraviti.

Sintaksa GetOpenFilename u VBA

Pogledajmo ispod formule za GetOpenFilename u Excelu VBA.

Ispod je argument VBA GetOpenFileName aplikacije.

  • FileFilter - U ovome možemo definirati kakvu datoteku želimo vidjeti. Na primjer, ako spomenemo "Excel datoteke, *. Xlsx", tada će se pronaći i prikazati sve datoteke Excela .xlsx formata. Ako spominjemo "PDF datoteke, *. Pdf", tada će se naći i prikazati sve pdf datoteke.
  • FilterIndex - Ovim putem možemo dopustiti korisniku da ograniči odabir vrste datoteke. Možemo odrediti broj datoteka koje trebamo pokazati.
  • Naslov - Prikazuje odabranu datoteku u naslovu dijaloškog okvira.
  • ButtonText - To je samo za MacBook korisnike.
  • MultiSelect - Ako odaberemo više datoteka, bit će to TRUE ili će to biti FALSE što je unaprijed zadana vrijednost.

Kako otvoriti datoteku pomoću GetOpenFileName u Excelu VBA?

Ispod su sljedeći primjeri za otvaranje datoteke pomoću GetOpenFileName aplikacije u excelu VBA.

Možete preuzeti ovaj VBA GetOpenFileName Excel predložak ovdje - VBA GetOpenFileName Excel predložak

Excel VBA GetOpenFileName - Primjer # 1

U ovom ćemo primjeru vidjeti kako prvo otvoriti excel datoteku. Slijedite dolje navedene korake za upotrebu GetOpenFileName u Excelu VBA:

Korak 1: Idite na izbornik Umetanje i kliknite na Modul da ga otvorite.

Korak 2: Napišite podkategoriju VBA Getopenfilename ili odaberite bilo koje drugo ime po vašem izboru za definiranje Podkategorije.

Kodirati:

 Sub OpenFile () Završetak Sub

Korak 3: Sada definirajte varijablu i dodijelite joj string kao što je prikazano u nastavku. Odabir niza jer ćemo odabrati ili odabrati naziv datoteke.

Kodirati:

 Sub OpenFile () Dim A kao završni niz Sub

Korak 4: Sada u definiranoj varijabli A koristite aplikaciju kao što je prikazano u nastavku.

Korak 5: Sada pretražite i odaberite GetOpenFileName s aktiviranog popisa aplikacija kao što je prikazano u nastavku.

Korak 6: Sada koristite MsgBox kako bismo dobili mjesto datoteke koju smo odabrali.

Kodirati:

 Sub OpenFile () Dim A kao niz A = Application.GetOpenFilename () MsgBox A End Sub

Korak 7: Sada sastavite kôd pritiskom na funkcijsku tipku F5 i pokrenite ga klikom na gumb Reproduciraj. Sada pregledavamo datoteku koju želimo odabrati. Ovdje smo slijedili put i odabrali datoteku excela nazvanu Test File koja se obično nalazi u .xlsx formatu. Kliknite na Otvori.

Prikazat će put te datoteke koju smo prethodno odabrali u okvir s porukama, kao što je prikazano u nastavku.

Korak 8: Sada ćemo prema sintaksi upotrijebiti Filefilter u zagradi GetOpenFilename aplikacije. Kao što znamo, namijenjen je odabiru vrste datoteke koju želimo otvoriti. Stoga ćemo za to staviti „Excel datoteke“ kao što je prikazano u nastavku.

Kodirati:

 Sub OpenFile () Dim A kao niz A = Application.GetOpenFilename (Filefilter: = "Excel datoteke") MsgBox A End Sub

Korak 9: Sada stavite ekstenziju Excelove datoteke koju smo ranije odabrali. To je bio „ .xlsx “, pa ćemo to zadržati i u FileFilteru.

Kodirati:

 Pod OpenFile () Dim A kao niz A = Application.GetOpenFilename (Filefilter: = "Excel datoteke, * .xlsx") MsgBox A End Sub

Korak 10: Sada ćemo ponovo pokrenuti kompletan kod. U mapi za pregledavanje naći ćemo samo Excel datoteke koje su dostupne u toj mapi koju smo prethodno pregledali.

A ako pokušamo vidjeti bilo koji drugi format ili proširenje datoteke u Excelovim datotekama, onda će se opet prikazati samo Excel datoteke.

Excel VBA GetOpenFileName - Primjer # 2

Na isti način možemo vidjeti i otvoriti naziv datoteke s nastavkom " .pdf ". Slijedite dolje navedene korake za upotrebu GetOpenFileName u Excelu VBA:

Korak 1: Sada ponovo napišite kod koji smo vidjeli u primjeru-1.

Kodirati:

 Sub OpenFile1 () Dim A kao niz A = Application.GetOpenFilename () MsgBox A End Sub

Korak 2: Odvest će nas do istog prozora ili ćemo pregledati tu istu mapu. Sada odaberite bilo koju PDF datoteku i kliknite na Otvori.

To će nam dati put odabrane datoteke.

Korak 3: Sada da biste dobili odabranu PDF datoteku, u FileFilter sintaksi upišite "PDF datoteke" umjesto "Excel datoteke" i odaberite ekstenziju PDF koja je " .pdf " kao što je prikazano u nastavku.

Kodirati:

 Pod OpenFile1 () Dim A kao niz A = Application.GetOpenFilename (Filefilter: = "PDF datoteke, * .pdf") MsgBox A End Sub

Korak 4: Ponovo sastavite kod i trčite nakon njega. Dobit ćemo mapu preglednika za otvaranje datoteka. U tome ćemo dobiti datoteke s ekstenzijom " .pdf " kao što je prikazano u nastavku.

A ako pokušate filtrirati ostale formate datoteka, tada će nam to ponovno omogućiti samo PDF datoteke kao što je prikazano u nastavku.

A ako ne odaberemo nijednu datoteku i ne izađemo iz prozora, ona će dati zadanu poruku koja je lažna .

Prosci Excel VBA GetOpenFileName

  • VBA GetOpenFileName pomaže nam da izravno otvorimo datoteku bez lijepljenja putanje te datoteke u VBA kodu.
  • Ne moramo više puta mijenjati putanju datoteka.
  • Pregledavanje i odabir datoteka kroz ovo je jednostavno kao i odlazak u tu mapu da biste je otvorili.

Slabosti Excela VBA GetOpenFileName

  • Moramo promijeniti ekstenziju datoteke koju želimo otvoriti ako dođe do promjene.

Stvari koje treba zapamtiti

  • Promijenite proširenje datoteke kad god trebate otvoriti drugu verziju datoteke.
  • Box Box sa porukom kao FALSE zadana je poruka koja će se pojaviti svaki put kad ne odaberemo nijednu datoteku za otvaranje.
  • Takav se postupak ne može stvoriti pomoću funkcije Record Macro.
  • Ne zaboravite da datoteku spremite u formatu Excela koji je makro omogućen. Tako će se pisani VBA kod sačuvati.

Preporučeni članci

Ovo je vodič za VBA GetOpenFileName. Ovdje smo raspravljali o tome kako otvoriti datoteku pomoću GetOpenFileName aplikacije u Excelu koristeći VBA kod uz nekoliko praktičnih primjera i preuzeti Excel predložak. Možete i pregledati naše druge predložene članke -

  1. Pronađi i zamijeni VBA (primjeri)
  2. Grupni radni listovi u Excelu
  3. VBA radna bilježnica
  4. Reference stanica u Excelu

Kategorija:

VBA