Note: The other languages of the website are Google-translated. Back to English

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL