Přejít k hlavnímu obsahu

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 for 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 for Excel zobrazí se také dialogové okno, které vás upozorní.

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50 + Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své excelentní dovednosti pomocí Kutools for Excela 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...

karta kte 201905


Office Tab Přináší rozhraní s kartami do Office 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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations