Uno degli usi più vantaggiosi di Excel VBA In questo articolo vi mostrerò come è possibile verificare se un file esiste o meno sul nostro computer utilizzando Excel. VBA .

Codice VBA per verificare se un file esiste o meno (visualizzazione rapida)

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Il file non esiste" Else MsgBox "Il file esiste" End If End Sub 

Scarica il quaderno di esercizi

Scaricate questo quaderno di esercizi per esercitarvi durante la lettura di questo articolo.

Panoramica del codice VBA per verificare se un file esiste o meno (analisi passo-passo)

Senza indugiare oltre, passiamo alla nostra discussione principale di oggi, che si articola in VBA per imparare a verificare se un file esiste o meno sul nostro computer.

⧪ Fase 1: inserimento degli input necessari

All'inizio del codice, dobbiamo inserire i dati necessari. In questo codice è richiesto un solo dato: il nome del file che stiamo cercando. Inserite il nome completo del file (insieme alla directory associata).

 File_Name = "C:\ExcelWIKI\Book1.xlsm" 

⧪ Passo 2: estrazione del nome del file con la funzione Dir di VBA

Poi, useremo un piccolo trucco: useremo l'elemento VBA Funzione Dir per estrarre il nome del file. Se non esiste un file di questo tipo, l'opzione Funzione Dir restituirà una stringa nulla.

 Nome_file = Dir(Nome_file) 

⧪ Passo 3: verifica dell'esistenza del file tramite un blocco If

Questo è il passo più importante. Abbiamo detto in precedenza che se non esiste un file con il nome dato, la funzione Dir restituisce una stringa nulla. Utilizzeremo questa proprietà all'interno di un file Se-blocco per verificare se il file esiste o meno.

 If File_Name = "" Then MsgBox "Il file non esiste" Else MsgBox "Il file esiste" End If 

Quindi la completa VBA codice sarà:

⧭ Codice VBA:

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Il file non esiste" Else MsgBox "Il file esiste" End If End Sub 

⧭ Uscita:

Eseguite il codice. Sul mio computer viene visualizzata una finestra di messaggio, "Il file esiste" perché esiste effettivamente sul mio computer.

Sul vostro computer, l'output potrebbe essere diverso a seconda che il file esista o meno.

Per saperne di più: Excel VBA: controllare se un foglio esiste (2 semplici metodi)

Sviluppare una macro per verificare l'esistenza o meno di un intervallo di file utilizzando Excel VBA

Qui abbiamo un insieme di dati in un foglio di lavoro di Excel che contiene il nome di alcuni file insieme alle directory nell'intervallo B4:B8 .

Il nostro obiettivo è quello di sviluppare una Macro che scriva Esiste / Non esiste a fianco di ciascuno di essi, dopo aver verificato l'esistenza o meno sul computer.

⧪ Passo 1: apertura della finestra VBA

Stampa ALT + F11 sulla tastiera per aprire la finestra Visual Basic finestra.

⧪ Passo 2: inserimento di un nuovo modulo

Vai a Inserire> Modulo nella barra degli strumenti. Fare clic su Modulo Un nuovo modulo chiamato Modulo1 (o qualsiasi altra cosa, a seconda della vostra storia passata) si aprirà.

⧪ Passo 3: inserimento del codice VBA

Questo è il passo più importante: inserire quanto segue VBA nel modulo.

⧭ Codice VBA:

 Sub Check_If_a_Range_di_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = "" Then Rng.Cells(i, 2) = "Doesn't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ Passo 5: esecuzione del codice

Fare clic sul pulsante Esegui Sub / UserForm dalla barra degli strumenti in alto.

Il codice verrà eseguito e si otterrà "Esiste" per i file esistenti e "Non esiste" per i file che non esistono.

Per saperne di più: Come controllare se il valore esiste nell'intervallo in Excel (8 modi)

Conclusione

Pertanto, questo è il processo per sviluppare un Macro per inviare un'e-mail da Excel con un allegato. Avete domande? Non esitate a chiedercele. E non dimenticate di visitare il nostro sito ExcelWIKI per ulteriori post e aggiornamenti.