Come verificare se il file esiste utilizzando vba (con esempio)
È possibile utilizzare la funzione Dir in VBA per verificare se esiste un file specifico in una cartella specifica.
Ecco un modo comune per utilizzare questa affermazione nella pratica:
SubCheckFileExists () 'ask user to type path to file InputFile = InputBox(" Check if this file exists: ") 'check if file exists and output results to message box If Dir(InputFile) <> "" Then MsgBox “ This File Exists ” Else MsgBox “ This File Does Not Exist ” End If End Sub
Questa particolare macro creerà una casella di input in cui l’utente potrà inserire il percorso completo di un file per verificare se esiste.
Una volta che l’utente ha immesso il percorso del file, la macro produrrà una finestra di messaggio che indica se il file esiste o meno.
L’esempio seguente mostra come utilizzare questa sintassi nella pratica.
Esempio: controlla se il file esiste utilizzando VBA
Supponiamo di avere una cartella situata nella seguente posizione:
C:\Utenti\bob\Documenti\data_corrente
Questa cartella contiene tre file CSV:
Supponiamo di voler utilizzare VBA per verificare se in questa cartella esiste un file chiamato football_data.csv .
Per fare ciò possiamo creare la seguente macro:
SubCheckFileExists () 'ask user to type path to file InputFile = InputBox(" Check if this file exists: ") 'check if file exists and output results to message box If Dir(InputFile) <> "" Then MsgBox “ This File Exists ” Else MsgBox “ This File Does Not Exist ” End If End Sub
Una volta eseguita questa macro, viene visualizzata una casella di input in cui possiamo inserire il percorso del file:
Inseriremo il percorso completo del file football_data.csv :
Dopo aver fatto clic su OK , verrà visualizzata una finestra di messaggio che ci dirà se il file esiste nella cartella che abbiamo specificato:
La finestra di messaggio ci dice che il file esiste.
Nota : puoi trovare la documentazione completa per la funzione Dir qui .
Risorse addizionali
I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:
Come creare cartelle utilizzando VBA
Come eliminare cartelle utilizzando VBA
Come eliminare file utilizzando VBA