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.