Kaip patikrinti, ar jūsų kompiuteryje yra failas arba aplankas naudojant „Excel VBA“?

Šiandienos „Office“ automatizavimo mokymo programa skirta išmokti patikrinti, ar failas yra viename iš jūsų kompiuterio katalogų.

Paruošimas

Jei esate naujokas kodavimo srityje, įsitikinkite, kad įgalintas Microsoft Office Excel kūrimo skirtukas ir esate susipažinę su kai kuriais pagrindiniais Excel VBA .

Tikrinama, ar failas egzistuoja naudojant Excel VBA

Šis kodas naudoja įvesties laukelius, kad užfiksuotų kelią į failą ir patį failo pavadinimą iš vartotojo.

Tada jis naudoja Dir metodą, kad patikrintų, ar failo kelias tikrai egzistuoja.

Galiausiai vartotojui rodomas pranešimo laukelis su patikrinimo rezultatu.

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

Patikrinkite, ar yra aplankas

Panašiai galite patikrinti, ar jūsų operacinėje sistemoje yra konkretus aplankas. Taip pat čia mes naudojame Dir metodą, bet su parametru 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

Kodo naudojimas

• Atidarykite „Microsoft Excel“ ir eikite į darbaknygę.
• Spustelėkite „Developer“, tada – „Visual Basic“.
• Nukopijuokite ir įklijuokite kodą iš viršaus kaip paprogramę konkrečiame VBA modulio lape.
• Paleiskite (F5) kodą.
• Išsaugokite savo darbo knygą.

Galimi pratęsimai

Aukščiau esantis katilo plokštės kodas gali būti pratęstas šiais atvejais:

• Sukurkite aplanką / failą, jei jo dar nėra.
• Ištrinkite aplanko failą, jei jie yra jūsų operacinės sistemos failų kataloge.
• Ieškokite failų / aplankų naudodami pakaitos simbolį.