Jak zkontrolovat, zda soubor existuje ve složce, a poté jej odstranit v aplikaci Excel?
V tomto tutoriálu se naučíte skript VBA pro kontrolu, zda určitý soubor existuje v zadané složce, pokud ano, pak jej smažte ze složky v Excelu.
Zkontrolujte, zda soubor ve složce existuje, a poté jej odstraňte v aplikaci Excel pomocí kódu VBA
Následující skript VBA pomáhá zkontrolovat, zda určitý soubor existuje ve složce, a odstranit jej, pokud existuje. Postupujte prosím následovně.
1. V otevřeném sešitu aplikace Excel stiskněte klávesu Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula poté zkopírujte následující skript VBA do souboru Modul (kód) okno.
Kód VBA: Zkontrolujte, zda soubor v zadané složce existuje, a poté jej odstraňte
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
Poznámka: V kódu VBA, C:\Users\Win10x64Test\Desktop\uložit přílohy\aaa.xlsx je cesta k souboru, u kterého chcete zkontrolovat, zda existuje. V tomto příkladu chci zkontrolovat, zda soubor aplikace Excel s názvem „aaa“ existuje ve složce s názvem “uložit přílohy“ na ploše. Cestu k souboru a příponu souboru můžete změnit podle svých potřeb.
3. zmáčkni F5 klíč ke spuštění kódu.
4. Pokud soubor existuje, dostanete a Kutools pro Excel dialogové okno, jak je znázorněno na snímku obrazovky níže. Klikněte na OK tlačítko pro odstranění tohoto souboru ze složky.
Pokud soubor ve složce neexistuje, jiný Kutools pro Excel zobrazí se také dialogové okno, které vás upozorní.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
