Hvernig á að athuga hvort skrá eða mappa sé til í tölvunni þinni með Excel VBA?

Office sjálfvirknikennsla í dag beinist að því að læra hvernig á að sannreyna að skrá sé til í einni af tölvumöppunum þínum.

Undirbúningur

Ef þú ert að einhverju leyti nýr í kóðun skaltu ganga úr skugga um að Microsoft Office Excel þróunarflipi sé virkur og að þú þekkir grunn Excel VBA .

Athugar hvort skrá sé til með Excel VBA

Eftirfarandi kóði nýtir innsláttarkassa til að fanga slóðina að skránni sem og skráarnafnið sjálft frá notandanum.

Síðan notar það Dir aðferðina til að sannreyna hvort skráarslóðin sé til.

Að lokum birtir það notandanum skilaboðareit með ávísunarniðurstöðunni.

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

Athugaðu hvort mappa sé til

Á nokkuð svipaðan hátt geturðu athugað hvort ákveðin mappa sé til í stýrikerfinu þínu. Einnig hér nýtum við Dir aðferðina, en með vbDirectory færibreytunni.

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

Að nota kóðann

• Opnaðu Microsoft Excel og farðu í vinnubókina þína.
• Smelltu á Developer og ýttu síðan á Visual Basic.
• Afritaðu og límdu kóðann að ofan sem undirrútínu í annaðhvort ákveðnu blaði í VBA einingunni þinni.
• Keyrðu (F5) kóðann.
• Vistaðu vinnubókina þína.

Mögulegar framlengingar

Kóðinn fyrir ketilsplötuna hér að ofan er framlengdur fyrir eftirfarandi notkunartilvik:

• Búðu til möppu / skrá ef hún er ekki þegar til.
• Eyddu möppuskrá að því tilskildu að þær séu til staðar í skráasafni stýrikerfisins.
• Leitaðu að skrám/möppum með algildisstafi.