Kuinka tarkistaa, onko tietokoneessasi tiedosto tai kansio Excel VBA:lla?

Tämän päivän Officen automaatio-opetusohjelmassa opitaan varmistamaan, että tiedosto on jossakin tietokoneesi hakemistoista.

Valmistautuminen

Jos olet hieman uusi koodaamassa, varmista, että Microsoft Office Excelin kehitysvälilehti on käytössä ja että olet perehtynyt joihinkin Excel VBA:n perustoimintoihin .

Tarkistetaan, onko tiedosto olemassa Excel VBA:lla

Seuraava koodi hyödyntää syöttöruutuja kaapatakseen polun tiedostoon sekä itse tiedostonimen käyttäjältä.

Sitten se hyödyntää Dir - menetelmää varmistaakseen, onko tiedostopolku todella olemassa.

Lopuksi se näyttää käyttäjälle viestiruudun, jossa on tarkistustulos.

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

Tarkista, onko kansio olemassa

Samalla tavalla voit tarkistaa, onko käyttöjärjestelmässäsi tietty kansio. Myös tässä hyödynnetään Dir - menetelmää, mutta vbDirectory- parametrilla.

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

Koodin käyttäminen

Avaa Microsoft Excel ja siirry työkirjaasi.
Paina Developer ja sitten Visual Basic.
Kopioi ja liitä koodi ylhäältä aliohjelmaksi jommallekummalle VBA-moduulisi arkille.
Suorita (F5) koodi.
Tallenna työkirjasi.

Mahdolliset laajennukset

Yllä olevaa kattilalevykoodia laajennetaan seuraaviin käyttötapauksiin:

Luo kansio/tiedosto, jos sitä ei vielä ole.
Poista kansion tiedosto, jos ne ovat käyttöjärjestelmän tiedostohakemistossa.
Etsi tiedostoja/kansioita jokerimerkillä.

Jätä kommentti

Voittoa tavoittelemattoman organisaation vuosikertomuksen PowerPoint-malli: Ilmaiset latausvaihtoehdot ja dialuettelo

Luo selkeä voittoa tavoittelemattoman organisaation vuosikertomus PowerPointissa ilmaisen mallin, käytännöllisen diarakenteen, vaikuttavuusmittareiden, taloustietojen ja lahjoittajille tarkoitettujen esitysvinkkien avulla.

Minimalistinen sijoittajapuheen PowerPoint-malli teknologia-alan startup-yrityksille: Mitä sisällyttää ja mitä jättää pois

Rakenna clean tech -alan startup-sijoittajan pitch-deck PowerPointilla käytännöllisellä diarakenteella, näyttöön perustuvalla viestinnällä, saavutettavalla suunnittelulla ja vähemmillä häiriötekijöillä.

Yksinkertainen tehtävien delegointimatriisimalli Wordille: Käytännönläheinen versio pienten tiimien esimiehille

Käytä tätä yksinkertaista tehtävien delegointimatriisimallia Wordissa omistajien, päätösrajojen, määräaikojen ja tarkistuspisteiden määrittämiseen ilman, että pienen tiimin työstä tulee liian monimutkaista.

Yksinkertainen päivähoidon läsnäololomakkeen malli: Tulostettava kirjautuminen sisään ja ulos kotihoitoon

Käytä tätä yksinkertaista tulostettavaa päivähoidon läsnäololomaketta kotihoitoon. Lomakkeeseen tulee lasten nimet, saapumis- ja lähtöajat, allekirjoitukset ja vinkkejä sääntöjen noudattamiseen.

Tulostettava yhden sivun markkinointistrategiamalli paikallisille yrityksille

Käytä tätä tulostettavaa yksisivuista markkinointistrategiapohjaa määrittääksesi paikallisen yleisösi, tarjonnan, kanavat, budjetin, viikoittaiset toimenpiteet ja mitattavissa olevat tavoitteet.

Kuinka estää Exceliä muuttamasta numeroita automaattisesti päivämääriksi

Estä Exceliä muuntamasta arvoja, kuten 1/2, 11-53 tai JAN1, päivämääriksi. Opi luotettavia korjauksia kirjoittamiseen, liittämiseen, CSV-tuontiin ja jo muunnettujen solujen käyttöön.

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.

Näin korjaat Outlookin virheen: sähköpostia voi vastaanottaa, mutta ei lähettää

Korjaa Outlook, kun sähköpostia voi vastaanottaa mutta ei lähettää. Tarkista Lähtevät, offline-tila, kirjautuminen, SMTP-asetukset, profiilit ja Microsoft 365 -muutokset.

Yksinkertainen kahden viikon välein tapahtuvan palkanmaksun Excel-seurantamalli pienille tiimeille: käytännön asennusopas

Rakenna yksinkertainen kahden viikon välein tapahtuva palkanmaksuseurantamalli Exceliin pienelle tiimille, mukaan lukien tunnit, palkat, vähennykset, tarkistusliput, yhteenvedot ja kirjanpito-ohjeet.

Tulostettava tapahtumasuunnittelun tarkistuslista ja budjettimalli Wordiin: Mitä sisällyttää ja milloin käyttää Exceliä

Luo tai mukauta tulostettava tapahtumasuunnittelun tarkistuslista ja budjettimalli Microsoft Wordissa, joka sisältää käytännön osioita, kompromisseja ja vinkkejä Wordin ja Excelin vertailuun.