Πώς να ελέγξετε εάν υπάρχει ένα αρχείο ή φάκελος στον υπολογιστή σας με το Excel VBA;

Το σημερινό σεμινάριο αυτοματισμού του Office επικεντρώνεται στην εκμάθηση πώς να επαληθεύσετε ότι ένα αρχείο υπάρχει σε έναν από τους καταλόγους του υπολογιστή σας.

Παρασκευή

Εάν είστε κάπως νέοι στην κωδικοποίηση, βεβαιωθείτε ότι είναι ενεργοποιημένη η καρτέλα ανάπτυξης του Microsoft Office Excel και ότι είστε εξοικειωμένοι με κάποιο βασικό Excel VBA .

Έλεγχος εάν υπάρχει αρχείο με το Excel VBA

Ο παρακάτω κώδικας αξιοποιεί τα πλαίσια εισαγωγής προκειμένου να καταγράψει τη διαδρομή προς το αρχείο καθώς και το ίδιο το όνομα του αρχείου από τον χρήστη.

Στη συνέχεια, αξιοποιεί τη μέθοδο Dir για να επαληθεύσει εάν η διαδρομή αρχείου υπάρχει πράγματι.

Τέλος, εμφανίζει ένα πλαίσιο μηνύματος στον χρήστη με το αποτέλεσμα ελέγχου.

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

Ελέγξτε εάν υπάρχει φάκελος

Με παρόμοιο τρόπο μπορείτε να ελέγξετε εάν υπάρχει ένας συγκεκριμένος φάκελος στο λειτουργικό σας σύστημα. Επίσης εδώ αξιοποιούμε τη μέθοδο Dir , αλλά με την παράμετρο 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

Χρησιμοποιώντας τον Κώδικα

• Ανοίξτε το Microsoft Excel και μεταβείτε στο βιβλίο εργασίας σας.
• Πατήστε Developer και μετά πατήστε Visual Basic.
• Αντιγράψτε και επικολλήστε τον κώδικα από πάνω ως υπορουτίνα είτε σε ένα συγκεκριμένο φύλλο της μονάδας VBA.
• Εκτελέστε (F5) τον κωδικό.
• Αποθηκεύστε το βιβλίο εργασίας σας.

Πιθανές επεκτάσεις

Ο κωδικός πλάκας λέβητα παραπάνω και επεκτείνεται για τις ακόλουθες περιπτώσεις χρήσης:

• Δημιουργήστε έναν φάκελο / αρχείο εάν δεν υπάρχει ήδη.
• Διαγράψτε ένα αρχείο φακέλου με την προϋπόθεση ότι υπάρχουν στον κατάλογο αρχείων του λειτουργικού σας συστήματος.
• Αναζητήστε αρχεία/φακέλους χρησιμοποιώντας μπαλαντέρ.