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.