Determinare se esiste una cartella di lavoro utilizzando VBA in Microsoft Excel
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 controllare se il file esiste nella posizione usando 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 selezionare Visual Basic
===
Fare clic su Inserisci quindi Modulo Questo creerà un nuovo modulo * Immettere 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 "File doesn't exist" Else Workbooks.Open "D:\FolderName\Sample.xlsx" End If End Sub
-
Ora la macro è pronta per essere eseguita, useremo il tasto di scelta rapida F5 e il file “Sample” si aprirà
-
Se il file non è disponibile nel percorso predefinito, la seguente finestra di messaggio visualizzerà
Se i nostri blog ti sono piaciuti, condividilo con i tuoi amici su Facebook. E anche tu puoi seguirci su Twitter e Facebook.
_ Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare, integrare o innovare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]_