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į.

Palikti komentarą

Kaip išspręsti „Outlook negali siųsti el. laiškų, bet gali juos gauti“ klaidą

Ištaisykite „Outlook“, kai galite gauti el. laiškus, bet negalite jų siųsti. Patikrinkite išsiuntimo dėžutę, atjungties režimą, prisijungimą, SMTP nustatymus, profilius ir „Microsoft 365“ pakeitimus.

Paprastas dvisavaitinis atlyginimų apskaitos „Excel“ šablonas mažoms komandoms: praktinis diegimo vadovas

Sukurkite paprastą dvisavaitinį atlyginimų apskaitos šabloną „Excel“ mažai komandai, įtraukdami darbo valandas, atlyginimus, išskaičiavimus, peržiūros žymes, suvestines ir dokumentų saugojimo gaires.

Paprastas naujų darbuotojų įtraukimo mokymų pristatymo šablonas: 12 skaidrių praktinis planas

Sukurkite paprastą naujų darbuotojų įtraukimo pristatymą naudodami praktinę 12 skaidrių struktūrą, apimančią pareigų lūkesčius, įrankius, saugumą, politiką, saugą ir pirmosios savaitės veiksmus.

Kaip eksportuoti „Salesforce“ kontaktus į švarų „Excel“ formatą nesugadinant ID ar telefono numerių

Švariai eksportuokite „Salesforce“ kontaktus į „Excel“: sukurkite tinkamą ataskaitą, eksportuokite kaip „Details Only CSV“, importuokite naudodami „Power Query“, išsaugokite ID ir pradinus nulius, saugiai pašalinkite dublikatus ir patikrinkite rezultatą.

Spausdinamas savaitinis valymo tvarkaraščio šablonas „Airbnb“ šeimininkams (Word ir PDF)

Naudokite šį spausdinamą savaitinį valymo tvarkaraštį „Airbnb“ šeimininkams, kad organizuotumėte apsikeitimo valymą, giliajį valymą, atsargų papildymą, saugos patikras ir spausdinimą iš Word į PDF.

Nemokamas mėnesinių sąskaitų kalendoriaus organizatoriaus šablonas „Excel“: praktinis 2026 m. nustatymas

Organizuokite mėnesines sąskaitas „Excel“ naudodami nemokamą sąskaitų kalendoriaus išdėstymą, mokėjimo terminų stebėjimą, būsenos formules, automatinio mokėjimo laukus ir praktinius pinigų srautų patarimus.

Excel formulės neapskaičiuoja automatiškai? Ištaisykite tai per 3 paprastus veiksmus

Ištaisykite Excel formules, kurios neapskaičiuoja automatiškai, atlikdami tris veiksmus: įjunkite automatinį skaičiavimą, perskaičiuokite ir sutvarkykite formulių langelius.

Nepriklausomo rangovo išlaidų sekimo šablonas JAV laisvai samdomiems darbuotojams: ką sekti 2026 m.

Sukurkite praktišką išlaidų sekimo įrankį JAV laisvai samdomiems darbuotojams su Schedule C kategorijomis, kvitų laukais, nuvažiuotų mylių sekimu ir 2026 m. IRS taisyklių pakeitimais.

Geriausios nemokamos sąskaitų faktūrų programėlės mažoms JAV paslaugų įmonėms (2026 m.)

Palyginkite geriausias nemokamas sąskaitų faktūrų programėles JAV paslaugų įmonėms 2026 m., įskaitant „Zoho Invoice“, „Wave“, „Square“, „PayPal“ ir „Invoice Ninja“.

Nemokamas nuosavybės nuomos išlaidų ir pajamų stebėtojo „Excel“ šablonas: pradedančiųjų vadovas

Naudokite nemokamą „Excel“ nuomos nuosavybės stebėtoją pajamoms, išlaidoms, nuosavybei ir mėnesiniam pinigų srautui organizuoti. Sužinokite, ką fiksuoti, kaip tai nustatyti ir kokių klaidų vengti.