Excel VBA GetOpenFileName

Det finns många sätt att öppna alla filer. Men det finns också flera sätt att öppna samma fil också. I VBA har vi olika funktioner som vi kan öppna vilken fil som helst. Vi kan öppna filen genom att sätta filens sökväg i VBA-kod, vi kan till och med spela in denna process också. Men det bästa sättet är att öppna alla filer i VBA är med hjälp av VBA GetOpenFileName- applikation. Som namnet säger, är det enbart gjord för ansökan om att öppna alla filer i VBA.

I andra funktioner eller applikationer som fungerar enligt samma princip kan vi behöva kopiera filen med filen åtskild med backstryk, för att hålla mappnamn och exakta utrymmen mellan backslash. Vi kan också behöva ange det exakta filnamnet tillsammans med tillägget som vi vill öppna. Men i VBA GetOpenFileName, behöver vi bara välja filen från platsen. Det ger rutan där vi kan bläddra igenom filen där den finns, och filändelsen kommer också att fixas.

Syntax av GetOpenFilename i VBA

Låt oss titta nedanför formeln för GetOpenFilename i Excel VBA.

Nedan visas argumentet för VBA GetOpenFileName-applikationen.

  • FileFilter - I det här kan vi definiera vilken typ av fil vi vill se. Om vi ​​till exempel nämner "Excel-filer, *. Xlsx" kommer den att hitta och visa alla excel-filer i .xlsx-format. Om vi ​​nämner "PDF-filer, *. Pdf" kommer den att hitta och bara visa alla pdf-filer.
  • FilterIndex - På detta sätt kan vi låta en användare begränsa för att välja filtyp. Vi kan ange antalet filer som vi behöver visa.
  • Titel - Den visar den valda filen i dialogrutans titel.
  • ButtonText - Det är bara för MacBook-användare.
  • MultiSelect - Om vi ​​väljer flera filer så kommer det att vara SANT eller annars är det FALSE vilket ändå är ett standardvärde.

Hur öppnar du fil med GetOpenFileName i Excel VBA?

Nedan är de olika exemplen för att öppna en fil med GetOpenFileName-applikationen i Excel VBA.

Du kan ladda ner denna VBA GetOpenFileName Excel-mall här - VBA GetOpenFileName Excel-mall

Excel VBA GetOpenFileName - Exempel 1

I det här exemplet ser vi hur man öppnar en Excel-fil först. Följ stegen nedan för att använda GetOpenFileName i Excel VBA:

Steg 1: Gå till Infoga-menyn och klicka på Modul för att öppna den.

Steg 2: Skriv underkategorin för VBA Getopenfilename eller välj något annat namn enligt ditt val för att definiera underkategori.

Koda:

 Sub OpenFile () Slut Sub

Steg 3: Definiera nu en variabel och ge den en sträng som visas nedan. Att välja en sträng eftersom vi kommer att välja eller välja filnamnet.

Koda:

 Sub OpenFile () Dim A As String End Sub

Steg 4: Använd nu en definierad variabel A- applikation som visas nedan.

Steg 5: Sök nu och välj GetOpenFileName från den aktiverade listan över applikationer som visas nedan.

Steg 6: Använd nu MsgBox så att vi får platsen för filen som vi väljer.

Koda:

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

Steg 7: Sätt nu koden genom att trycka på F5-funktionsknappen och kör den genom att klicka på Play-knappen. Bläddra nu till filen som vi vill välja. Här har vi följt sökvägen och valt den excel-fil som heter Testfil som vanligtvis är i .xlsx- format. Klicka på Öppna.

Den visar sökvägen för den filen som vi har valt tidigare i en meddelanderuta som visas nedan.

Steg 8: Nu ska vi, enligt syntax, använda Filefilter i konsolen för GetOpenFilename-applikationen. Som vi vet är det avsett för att välja den filtyp som vi vill öppna den. Så vi kommer att lägga "Excel-filer" för det som visas nedan.

Koda:

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

Steg 9: Lägg nu tillägget till Excel-filen som vi har valt tidigare. Det var " .xlsx ", så vi kommer att behålla det också i FileFilter.

Koda:

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

Steg 10: Nu kör vi den fullständiga koden igen. I bläddringsmappen får vi bara Excel-filer som är tillgängliga i den mapp som vi har bläddrat tidigare.

Och om vi försöker se något annat filformat eller tillägg i Excel-filer, kommer det igen bara att visa Excel-filer.

Excel VBA GetOpenFileName - Exempel # 2

På samma sätt kan vi se öppna filnamnet med tillägget " .pdf ". Följ stegen nedan för att använda GetOpenFileName i Excel VBA:

Steg 1: Skriv nu igen koden som vi har sett i exempel-1.

Koda:

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

Steg 2: Det tar oss till samma fönster eller bläddrar till samma mapp. Välj nu någon av PDF-filer och klicka på Öppna.

Det ger oss sökvägen för den valda filen.

Steg 3: Nu för att få den valda PDF-filen, i FileFilter-syntax, skriv "PDF-filer" istället för "Excel-filer" och välj tillägget till PDF som är " .pdf " som visas nedan.

Koda:

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

Steg 4: Sätt igen koden och kör efter den. Vi får webbläsarmappen för att öppna filerna. I det får vi bara filerna med tillägget " .pdf " som visas nedan.

Och om du försöker filtrera andra filformat, så kommer det igen att bara se PDF-filer som visas nedan.

Och om vi inte väljer någon fil och lämnar fönstret ger det ett standardmeddelande som är falskt .

Fördelar med Excel VBA GetOpenFileName

  • VBA GetOpenFileName hjälper oss att öppna filen direkt utan att klistra in filens sökväg i VBA-kod.
  • Vi behöver inte ändra filens sökväg flera gånger.
  • Bläddra och välja filer genom detta är lika enkelt som att gå till den mappen för att öppna den.

Nackdelar med Excel VBA GetOpenFileName

  • Vi måste ändra filändelsen som vi vill öppna om det ändras.

Saker att komma ihåg

  • Ändra filändelsen när du behöver öppna en annan version av filen.
  • Meddelandelåda med ett meddelande som FALSE är standardmeddelandet som kommer varje gång vi inte väljer någon fil som ska öppnas.
  • En sådan typ av process kan inte skapas med hjälp av Record Macro-funktionen.
  • Kom ihåg att spara filen som ett makroaktiverat Excel-format. Så att den skrivna VBA-koden kommer att bevaras.

Rekommenderade artiklar

Det här är en guide till VBA GetOpenFileName. Här diskuterar vi hur man öppnar en fil med GetOpenFileName-applikationen i Excel med VBA-kod tillsammans med några praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA Hitta och ersätt (exempel)
  2. Grupparblad i Excel
  3. VBA-arbetsbok
  4. Cellreferenser i Excel

Kategori:

VBA