Jak zkontrolovat, zda ve vašem počítači existuje soubor nebo složka s aplikací Excel VBA?

Dnešní kurz automatizace Office je zaměřen na to, jak ověřit, že soubor existuje v některém z adresářů vašeho počítače.

Příprava

Pokud s kódováním začínáte, ujistěte se, že je povolena karta Microsoft Office Excel Development a že jste obeznámeni s některými základními Excel VBA .

Kontrola, zda soubor existuje pomocí Excel VBA

Následující kód využívá vstupní pole k zachycení cesty k souboru i samotného názvu souboru od uživatele.

Poté využívá metodu Dir k ověření, zda cesta k souboru skutečně existuje.

Nakonec uživateli zobrazí okno se zprávou s výsledkem kontroly.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Zkontrolujte, zda složka existuje

Zcela podobným způsobem můžete zkontrolovat, zda ve vašem operačním systému existuje konkrétní složka. Také zde využíváme metodu Dir , ale s parametrem vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Použití kódu

  • Otevřete Microsoft Excel a přejděte do sešitu.
  • Klepněte na Vývojář a poté klepněte na Visual Basic.
  • Zkopírujte a vložte kód shora jako podprogram buď do konkrétního listu vašeho modulu VBA.
  • Spusťte (F5) kód.
  • Uložte sešit.

Možná rozšíření

Výše uvedený kód štítku kotle může být rozšířen pro následující případy použití:

  • Vytvořte složku / soubor, pokud ještě neexistuje.
  • Odstraňte soubor složky, pokud se nachází v adresáři souborů vašeho operačního systému.
  • Vyhledejte soubory/složky pomocí zástupného znaku.

Leave a Comment

[VYRIEŠENÉ] „Tomuto vydavateľovi bolo zablokované spustenie softvéru na vašom počítači“ v systéme Windows 10

[VYRIEŠENÉ] „Tomuto vydavateľovi bolo zablokované spustenie softvéru na vašom počítači“ v systéme Windows 10

Získanie chyby Tomuto vydavateľovi bolo zablokované spustenie softvéru na vašom počítači, potom postupujte podľa opráv na odblokovanie vydavateľa a jednoduché spúšťanie softvéru

Ako kresliť na fotografiu na iPhone

Ako kresliť na fotografiu na iPhone

Chcete rýchlo anotovať fotografiu na iPhone? Môžete na to použiť aplikáciu Fotky. Táto príručka vám ukáže, ako začať.

[OPRAVENÉ] Kód chyby 0x80070035 Sieťová cesta sa nenašla v systéme Windows 10

[OPRAVENÉ] Kód chyby 0x80070035 Sieťová cesta sa nenašla v systéme Windows 10

Pri problémoch s kódom chyby 0x80070035 sa sieťová cesta nenašla, skúste opravy uvedené v článku ako vypnutie firewallu a zdieľanie disku.

Oprava: Nefunguje rozpoznání hlasu Asistenta Google

Oprava: Nefunguje rozpoznání hlasu Asistenta Google

Pokud hlasová shoda Google Assistant nefunguje, vytvořte nový hlasový model, spusťte aplikaci Google a nastavte výchozího asistenta.

Jak hrát The Legend Of Zelda: Breath Of The Wild na PC?

Jak hrát The Legend Of Zelda: Breath Of The Wild na PC?

Chcete si zahrát The Legend Of Zelda: Breath Of The Wild na PC? Zde se podívejte na všechny možné způsoby, jak hrát The Legend Of Zelda BOTW na Windows PC.

Nejjednodušší způsoby, jak vytvořit průhledné fotografické pozadí

Nejjednodušší způsoby, jak vytvořit průhledné fotografické pozadí

Objevte <strong>nejjednodušší způsoby odstranění pozadí fotografií</strong>. Připojte se k WebTech360 a zjistěte, jak efektivně vytvářet průhledná pozadí pro vaše obrázky.

Ako povoliť a používať automatické titulky na TikTok

Ako povoliť a používať automatické titulky na TikTok

Aby bylo vaše video na TikTok přístupnější a srozumitelnější, poskytneme vám návod, jak povolit a používat automatické titulky.

Ako opraviť chybu Bootrec/Fixboot Access Is Denied Windows 10?

Ako opraviť chybu Bootrec/Fixboot Access Is Denied Windows 10?

Postupujte podľa komplexných riešení uvedených v článku a opravte chybu bootrec/fixboot access denied vo Windows 10.

Ako sťahovať videá z Disney Plus na prezeranie offline

Ako sťahovať videá z Disney Plus na prezeranie offline

Zjistěte, jak efektivně stahovat videa z Disney Plus pro offline sledování. Všechny důležité informace na jednom místě.

Chyba 1058: Službu nelze spustit Windows 10 [VYŘEŠENO]

Chyba 1058: Službu nelze spustit Windows 10 [VYŘEŠENO]

Chcete-li opravit chybu 1058: Službu nelze spustit Windows 10, postupujte podle uvedených oprav, jako je kontrola služby a její povolení, použijte nastavení registru.