Excel VBA GetOpenFileName

Esistono molti modi per aprire qualsiasi file. Ma ci sono anche diversi modi per aprire lo stesso file. In VBA, abbiamo diverse funzioni con le quali possiamo aprire qualsiasi file. Possiamo aprire il file inserendo il percorso del file nel codice VBA, possiamo anche registrare questo processo. Ma il modo migliore è aprire qualsiasi file in VBA è con l'aiuto dell'applicazione GetOpenFileName di VBA . Come dice il nome, è fatto apposta per l'applicazione all'apertura di qualsiasi file in VBA.

In altre funzioni o applicazioni che funzionano con lo stesso principio, potrebbe essere necessario copiare il file del file separato da barre rovesciate, mantenendo il nome della cartella e gli spazi esatti tra la barra rovesciata. Inoltre, potrebbe essere necessario inserire il nome esatto del file insieme all'estensione che vogliamo aprire. Ma in VBA GetOpenFileName, dobbiamo solo selezionare il file dalla posizione. Fornirà la casella da cui è possibile sfogliare il file in cui è conservato e anche l'estensione del file verrà riparata.

Sintassi di GetOpenFilename in VBA

Guardiamo sotto la formula per GetOpenFilename in Excel VBA.

Di seguito è riportato l'argomento dell'applicazione GetOpenFileName VBA.

  • FileFilter - In questo, possiamo definire quale tipo di file vogliamo vedere. Ad esempio, se citiamo "File Excel, *. Xlsx", troverà e mostrerà tutti i file Excel in formato .xlsx. Se menzioniamo "File PDF, *. Pdf", troverà e mostrerà solo tutti i file pdf.
  • FilterIndex - In questo modo, possiamo consentire a un utente di limitare la selezione del tipo di file. Possiamo specificare il numero di file che dobbiamo mostrare.
  • Titolo : mostra il file selezionato nel titolo della finestra di dialogo.
  • ButtonText - È solo per utenti MacBook.
  • Selezione multipla : se selezioniamo più file, sarà VERO, altrimenti sarà FALSO, che è comunque un valore predefinito.

Come aprire il file utilizzando GetOpenFileName in Excel VBA?

Di seguito sono riportati i diversi esempi per aprire un file utilizzando l'applicazione GetOpenFileName in Excel VBA.

Puoi scaricare questo modello Excel VBA GetOpenFileName qui - Modello Excel VBA GetOpenFileName

Excel VBA GetOpenFileName - Esempio n. 1

In questo esempio, vedremo come aprire prima un file Excel. Seguire i passaggi seguenti per utilizzare GetOpenFileName in Excel VBA:

Passaggio 1: vai al menu Inserisci e fai clic su Modulo per aprirlo.

Passaggio 2: scrivere la sottocategoria di VBA Getopenfilename o scegliere qualsiasi altro nome secondo la propria scelta per definire la sottocategoria.

Codice:

 Sub OpenFile () End Sub

Passaggio 3: ora definisci una variabile e assegnale una stringa come mostrato di seguito. Scelta di una stringa perché sceglieremo o selezioneremo il nome del file.

Codice:

 Sub OpenFile () Dim A As String End Sub

Passaggio 4: ora nella variabile definita A utilizzare l'applicazione come mostrato di seguito.

Passaggio 5: Ora cerca e seleziona GetOpenFileName dall'elenco di applicazioni attivato come mostrato di seguito.

Passaggio 6: ora utilizza MsgBox in modo da ottenere la posizione del file che selezioniamo.

Codice:

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

Passo 7: Ora compila il codice premendo il tasto funzione F5 ed eseguilo facendo clic sul pulsante Riproduci. Ora sfoglia il file che vogliamo selezionare. Qui abbiamo seguito il percorso e selezionato il file Excel chiamato come file di prova che di solito è in formato .xlsx . Clicca su Apri.

Mostrerà il percorso di quel file che abbiamo selezionato in precedenza in una finestra di messaggio come mostrato di seguito.

Passo 8: Ora come da sintassi useremo Filefilter tra parentesi nell'applicazione GetOpenFilename. Come sappiamo è pensato per scegliere il tipo di file che vogliamo aprirlo. Quindi inseriremo "File Excel" come mostrato di seguito.

Codice:

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

Passaggio 9: ora inserisci l'estensione del file Excel che abbiamo selezionato in precedenza. Era " .xlsx ", quindi lo terremo anche in FileFilter.

Codice:

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

Passaggio 10: Ora eseguiremo nuovamente il codice completo. Nella cartella Sfoglia, otterremo solo i file Excel che sono disponibili in quella cartella che abbiamo consultato in precedenza.

E se proviamo a visualizzare qualsiasi altro formato o estensione di file nei file di Excel a discesa, mostrerà nuovamente solo i file di Excel.

Excel VBA GetOpenFileName - Esempio n. 2

Allo stesso modo, possiamo vedere aprire il nome del file con estensione " .pdf ". Seguire i passaggi seguenti per utilizzare GetOpenFileName in Excel VBA:

Step 1: Ora scrivi di nuovo il codice che abbiamo visto nell'esempio-1.

Codice:

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

Passaggio 2: ci porterà nella stessa finestra oppure cerca la stessa cartella. Ora seleziona uno qualsiasi dei file PDF e fai clic su Apri.

Ci darà il percorso del file selezionato.

Passo 3: Ora per ottenere il file PDF selezionato, nella sintassi FileFilter, scrivi "File PDF" invece di "File Excel" e seleziona l'estensione del PDF che è " .pdf " come mostrato di seguito.

Codice:

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

Passaggio 4: compilare nuovamente il codice ed eseguirlo dopo. Otterremo la cartella del browser per aprire i file. In questo, otterremo solo i file con estensione " .pdf " come mostrato di seguito.

E se provi a filtrare altri formati di file, ci consentirà di nuovo di vedere solo i file PDF come mostrato di seguito.

E se non selezioniamo alcun file e usciamo dalla finestra, verrà visualizzato un messaggio predefinito False .

Pro di Excel VBA GetOpenFileName

  • VBA GetOpenFileName ci aiuta ad aprire direttamente il file senza incollare il percorso di quel file nel codice VBA.
  • Non è necessario modificare più volte il percorso dei file.
  • Navigare e selezionare i file attraverso questo è semplice come andare in quella cartella per aprirlo.

Contro di Excel VBA GetOpenFileName

  • Dobbiamo modificare l'estensione di un file che vogliamo aprire in caso di cambiamenti.

Cose da ricordare

  • Modificare l'estensione del file ogni volta che è necessario aprire una versione diversa del file.
  • La finestra di messaggio con un messaggio come FALSO è il messaggio predefinito che verrà ogni volta che non selezioniamo alcun file da aprire.
  • Questo tipo di processo non può essere creato con l'aiuto della funzione Registra macro.
  • Ricorda di salvare il file come formato Excel abilitato per le macro. In questo modo il codice VBA scritto verrà preservato.

Articoli consigliati

Questa è una guida a VBA GetOpenFileName. Qui discutiamo come aprire un file usando l'applicazione GetOpenFileName in Excel usando il codice VBA insieme ad alcuni esempi pratici e template Excel scaricabili. Puoi anche consultare i nostri altri articoli suggeriti:

  1. Trova e sostituisci VBA (esempi)
  2. Fogli di lavoro di gruppo in Excel
  3. Cartella di lavoro VBA
  4. Riferimenti di cella in Excel

Categoria:

VBA