Si të kontrolloni nëse një skedar ose dosje ekziston në kompjuterin tuaj me Excel VBA?

Tutoriali i sotëm i automatizimit të Office është i fokusuar në të mësuarit se si të verifikoni që një skedar ekziston në një nga drejtoritë e kompjuterit tuaj.

Përgatitja

Nëse jeni disi i ri në kodim, sigurohuni që skeda e zhvillimit të Microsoft Office Excel është e aktivizuar dhe se jeni njohur me disa bazë Excel VBA .

Kontrollimi nëse ekziston një skedar me Excel VBA

Kodi i mëposhtëm përdor kutitë hyrëse për të kapur shtegun drejt skedarit si dhe vetë emrin e skedarit nga përdoruesi.

Pastaj përdor metodën Dir për të verifikuar nëse shtegu i skedarit ekziston vërtet.

Së fundi, ai shfaq një kuti mesazhi për përdoruesit me rezultatin e kontrollit.

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

Kontrolloni nëse ekziston një dosje

Në mënyrë të ngjashme, mund të kontrolloni nëse një dosje specifike ekziston në sistemin tuaj operativ. Gjithashtu këtu ne përdorim metodën Dir , por me parametrin 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

Duke përdorur Kodin

• Hapni Microsoft Excel dhe lundroni te libri juaj i punës.
• Shtypni Developer dhe më pas shtypni Visual Basic.
• Kopjoni dhe ngjitni kodin nga lart si një nënprogram në një fletë specifike të modulit tuaj VBA.
• Ekzekutoni kodin (F5).
• Ruani librin tuaj të punës.

Zgjerime të mundshme

Kodi i pllakës së bojlerit më lart do të zgjerohet për rastet e mëposhtme të përdorimit:

• Krijoni një dosje / skedar nëse nuk ekziston tashmë.
• Fshini një skedar të dosjes me kusht që ato të jenë të pranishme në dosjen e skedarëve të sistemit tuaj operativ.
• Kërkoni për skedarë/dosje duke përdorur një karakteristikë.