In Microsoft Excel, possiamo verificare se il file esiste in una posizione specifica utilizzando il codice VBA. La macro visualizzerà lo stato sotto forma di finestra di messaggio. In questo articolo identificheremo, se lo stato di un file specifico esiste o meno, con l'aiuto del codice VBA. Possiamo usare la funzione Dir per verificare se il file esiste nella posizione utilizzando Excel VBA.
Usando questo programma possiamo controllare se c'è qualche file che esiste già nella stessa posizione. Quindi, possiamo eliminare o rinominare il vecchio file.
Domanda: Quando creiamo macro per automatizzare l'attività, generalmente salviamo il file di output in una posizione. Vorrei avere una macro per verificare e in cambio mostrare che il file è disponibile o meno nel percorso specifico.
Per illustrare questo esempio salveremo il file “Sample.xlsx” nel percorso "D:\FolderName\Sample.xlsx"
Per identificare se la cartella di lavoro esiste, dobbiamo seguire i passaggi seguenti per avviare l'editor VB:
- Fare clic sulla scheda Sviluppatore
- Dal gruppo Codice seleziona Visual Basic
- Fare clic su Inserisci quindi Modulo
- Questo creerà un nuovo modulo
- Inserisci il seguente codice nel Modulo Standard
Sub FileExists() Dim FilePath As String Dim TestStr As String FilePath = "D:\FolderName\Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir(FilePath) On Error GoTo 0 If TestStr = "" Then MsgBox " Il file non esiste" Else Workbooks.Open "D:\FolderName\Sample.xlsx" End If End Sub
- Ora la macro è pronta per l'esecuzione, utilizzeremo il tasto di scelta rapida F5 e si aprirà il file "Sample"
- Se il file non è disponibile nel percorso predefinito, verrà visualizzata la seguente finestra di messaggio
Conclusione: In questo modo possiamo facilmente riconoscere se un particolare file esiste o meno in un percorso specifico usando il codice VBA.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica