Kuidas kontrollida, kas teie arvutis on Excel VBA abil fail või kaust?

Tänane Office'i automatiseerimise õpetus keskendub sellele, kuidas kontrollida, kas fail on ühes teie arvutikataloogidest olemas.

Ettevalmistus

Kui olete kodeerimises pisut uus, veenduge, et Microsoft Office Exceli arenduskaart oleks lubatud ja tunneksite mõnda põhilist Exceli VBA- d .

Faili olemasolu kontrollimine Excel VBA abil

Järgmine kood kasutab sisestuskaste, et jäädvustada kasutajalt faili tee ja failinimi.

Seejärel kasutab see meetodit Dir , et kontrollida, kas failitee on tõesti olemas.

Lõpuks kuvab see kasutajale teatekasti koos kontrolli tulemusega.

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

Kontrollige, kas kaust on olemas

Üsna sarnasel viisil saate kontrollida, kas teie operatsioonisüsteemis on konkreetne kaust. Ka siin kasutame meetodit Dir , kuid parameetriga 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

Koodi kasutamine

Avage Microsoft Excel ja liikuge oma töövihikusse.
Klõpsake nuppu Arendaja ja seejärel Visual Basic.
Kopeerige ja kleepige ülaltoodud kood alamprogrammina oma VBA mooduli konkreetsele lehele.
Käivitage (F5) kood.
Salvestage oma töövihik.

Võimalikud pikendused

Ülaltoodud katlaplaadi koodi laiendatakse järgmistel kasutusjuhtudel:

Looge kaust/fail, kui seda veel pole.
Kustutage kausta fail, kui need on teie operatsioonisüsteemi failikataloogis.
Otsige faile/kaustu metamärki kasutades.

Jäta kommentaar

Kuidas lahendada Outlooki viga: e-posti saab vastu võtta, kuid saata ei saa

Lahendage Outlooki probleem, kui e-posti saab vastu võtta, kuid saata ei saa. Kontrollige postkasti väljundit, võrguühenduseta olekut, sisselogimist, SMTP-seadeid, profiile ja Microsoft 365 muudatusi.

Lihtne kahe nädala palgarakenduse Exceli mall väikestele meeskondadele: praktiline seadistamisjuhend

Koostage väikese meeskonna jaoks lihtne kahe nädala palgarakendus Excelis, sisaldades tunde, palka, mahaarvamisi, ülevaatamise lippe, kokkuvõtteid ja arvestusjuhiseid.

Lihtne sissetulekoolituse esitlusmall uutele töötajatele: 12-kaardiline praktiline juhend

Koostage lihtne uute töötajate sissetulekoolituse esitlus praktilise 12-kaardilise struktuuriga, mis hõlmab rolliootusi, tööriistu, turvalisust, poliitikaid, ohutust ja esimese nädala tegevusi.

Kuidas eksportida Salesforce'i kontakte puhtasse Exceli formaati ilma ID-sid või telefoninumbreid rikkumata

Eksportige Salesforce'i kontaktid Excelisse puhtalt: koostage õige aruanne, eksportige ainult üksikasjad CSV-na, importige Power Queryga, säilitage ID-d ja juhtivad nullid, eemaldage topeltkirjed turvaliselt ja kontrollige tulemust.

Prinditav nädalane koristusgraafiku mall Airbnb peremeestele (Word ja PDF)

Kasutage seda prinditavat nädalast koristusgraafikut Airbnb peremeestele, et korraldada külaliste vahetuse koristust, põhjalikku puhastust, varude täiendamist, ohutuskontrolle ning Wordi ja PDF-i printimist.

Tasuta igakuise aruete kalendri korraldaja mall Excelile: praktiline seadistus aastaks 2026

Korraldage igakuised arved Excelis tasuta aruete kalendri paigutuse, tähtaja jälgimise, staatuse valemite, automaatse maksmise väljade ja praktiliste rahavoogude näpunäidetega.

Exceli valemid ei arvuta automaatselt? Lahenda see 3 lihtsa sammuga

Lahendage Exceli valemid, mis ei arvuta automaatselt, kolme sammuga: lubage automaatne arvutamine, taasarvutage ja parandage valemirakud.

Sõltumatu töövõtja kuluhalduse mall USA vabakutselistele: mida jälgida 2026. aastal

Koostage praktiline kuluhaldur USA vabakutselistele, kasutades Schedule C-le sobivaid kategooriaid, kviitungite välju, sõidukilomeetrite jälgimist ja 2026. aasta IRS-i reeglite uuendusi.

Parimad tasuta arvestusrakendused väikestele teenindusettevõtetele USAs (2026)

Võrrelge parimaid tasuta arvestusrakendusi USA teenindusettevõtetele 2026. aastal, sealhulgas Zoho Invoice, Wave, Square, PayPal ja Invoice Ninja.

Tasuta Exceli mall üürikinnisvara kulude ja tulude jälgimiseks: algajate juhend

Kasutage tasuta Exceli üürikinnisvara jälgijat, et korraldada tulusid, kulusid, kinnistuid ja igakuist rahavoogu. Õppige, mida salvestada, kuidas seda seadistada ja milliseid vigu vältida.