Cum să verific dacă un fișier există într-un folder, apoi să-l șterg în Excel?
În acest tutorial, veți învăța un script VBA pentru a verifica dacă un anumit fișier există într-un folder specificat, dacă există, apoi ștergeți-l din folderul din Excel.
Verificați dacă un fișier există într-un folder, apoi ștergeți-l în Excel cu cod VBA
Următorul script VBA vă ajută să verificați dacă un anumit fișier există într-un folder și să îl ștergeți dacă există. Vă rugăm să faceți după cum urmează.
1. Într-un registru de lucru Excel deschis, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați următorul script VBA în fișierul Modul (Cod) fereastră.
Cod VBA: verificați dacă un fișier există într-un folder specificat, apoi ștergeți-l
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
notițe: În codul VBA, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx este calea fișierului pe care doriți să îl verificați dacă există. În acest exemplu, vreau să verific dacă un fișier Excel numit „aaa” există într-un folder numit “salvați atașamentele" pe desktop. Puteți modifica calea fișierului și extensia fișierului pentru a vă satisface nevoile.
3. apasă pe F5 tasta pentru a rula codul.
4. Dacă fișierul există, veți obține un Kutools pentru Excel caseta de dialog așa cum se arată în captura de ecran de mai jos. Apasă pe OK butonul pentru a elimina acest fișier din folder.
Dacă fișierul nu există în folder, altul Kutools pentru Excel va apărea și caseta de dialog pentru a vă alerta.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!