Ako skontrolovať, či vo vašom počítači existuje súbor alebo priečinok pomocou Excel VBA?

Dnešný kurz automatizácie balíka Office je zameraný na učenie sa, ako overiť, či súbor existuje v jednom z adresárov vášho počítača.

Príprava

Ak s kódovaním začínate, uistite sa, že je povolená karta Vývoj v programe Microsoft Office Excel a že poznáte niektoré základné Excel VBA .

Kontrola, či súbor existuje pomocou Excel VBA

Nasledujúci kód využíva vstupné polia, aby od používateľa zachytil cestu k súboru, ako aj samotný názov súboru.

Potom použije metódu Dir na overenie, či cesta k súboru skutočne existuje.

Nakoniec používateľovi zobrazí okno so správou s výsledkom 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

Skontrolujte, či existuje priečinok

Podobným spôsobom môžete skontrolovať, či vo vašom operačnom systéme existuje konkrétny priečinok. Aj tu využívame metódu Dir , ale s parametrom 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žívanie Kódexu

• Otvorte Microsoft Excel a prejdite do svojho zošita.
• Kliknite na položku Vývojár a potom na položku Visual Basic.
• Skopírujte a prilepte kód zhora ako podprogram buď na konkrétnom hárku vášho modulu VBA.
• Spustite (F5) kód.
• Uložte si pracovný zošit.

Možné rozšírenia

Vyššie uvedený kód štítku kotla sa môže rozšíriť o nasledujúce prípady použitia:

• Vytvorte priečinok / súbor, ak ešte neexistuje.
• Odstráňte súbor priečinka za predpokladu, že sa nachádza v adresári súborov vášho operačného systému.
• Vyhľadajte súbory/priečinky pomocou zástupného znaku.