Hogyan lehet ellenőrizni, hogy van-e fájl egy mappában, majd törölni kell az Excelben?
Ebben az oktatóanyagban megtanul egy VBA-szkriptet, amellyel ellenőrizheti, hogy egy adott fájl létezik-e egy megadott mappában, ha igen, akkor törölje azt a mappából az Excelben.
Ellenőrizze, hogy létezik-e fájl egy mappában, majd törölje azt az Excelben VBA kóddal
A következő VBA-szkript segít ellenőrizni, hogy egy bizonyos fájl létezik-e egy mappában, és törölheti, ha létezik. Kérjük, tegye a következőket.
1. Egy megnyitott Excel-munkafüzetben nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja be a következő VBA-szkriptet a Modul (kód) ablak.
VBA kód: Ellenőrizze, hogy létezik-e fájl egy megadott mappában, majd törölje
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
Megjegyzések: A VBA kódban C:\Users\Win10x64Test\Desktop\mellékletek mentése\aaa.xlsx az ellenőrizni kívánt fájl elérési útja, hogy létezik-e. Ebben a példában azt szeretném ellenőrizni, hogy egy "" nevű Excel-fájlaaa" létezik egy " nevű mappábanmellékletek mentése” az asztalon. Igényeinek megfelelően módosíthatja a fájl elérési útját és kiterjesztését.
3. megnyomni a F5 gombot a kód futtatásához.
4. Ha a fájl létezik, akkor a Kutools az Excel számára párbeszédpanelen az alábbi képernyőképen látható módon. Kattints a OK gombot a fájl eltávolításához a mappából.
Ha a fájl nem létezik a mappában, akkor egy másikat Kutools az Excel számára párbeszédpanel is felugrik, hogy figyelmeztesse.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!