Come verificare se un file esiste in una cartella, quindi eliminarlo in Excel?
In questo tutorial imparerai uno script VBA per verificare se un determinato file esiste in una cartella specificata, in tal caso, quindi eliminalo dalla cartella in Excel.
Controlla se esiste un file in una cartella, quindi eliminalo in Excel con il codice VBA
Il seguente script VBA aiuta a verificare se un determinato file esiste in una cartella e ad eliminarlo se esiste. Si prega di fare quanto segue.
1. In una cartella di lavoro di Excel aperta, premere il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli, quindi copiare il seguente script VBA nel file Modulo (codice) finestra.
Codice VBA: verifica se esiste un file in una cartella specificata, quindi eliminalo
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
Note:: Nel codice VBA, C:\Utenti\Win10x64Test\Desktop\salva allegati\aaa.xlsx è il percorso del file che vuoi verificare se esiste. In questo esempio, voglio verificare se un file Excel denominato "aaa" esiste in una cartella denominata "salva gli allegati” sul desktop. È possibile modificare il percorso e l'estensione del file in base alle proprie esigenze.
3. premi il F5 chiave per eseguire il codice.
4. Se il file esiste, otterrai un file Kutools for Excel finestra di dialogo come mostrato nello screenshot qui sotto. Clicca il OK pulsante per rimuovere questo file dalla cartella.
Se il file non esiste nella cartella, un altro Kutools for Excel apparirà anche una finestra di dialogo per avvisarti.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!