Μία από τις πιο πλεονεκτικές χρήσεις του Excel VBA στην καθημερινή μας ζωή είναι ότι μπορούμε να ελέγξουμε αν ένα αρχείο υπάρχει ή όχι στον υπολογιστή μας χρησιμοποιώντας το. Σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να ελέγξετε αν ένα αρχείο υπάρχει ή όχι στον υπολογιστή μας χρησιμοποιώντας το Excel VBA .

Κώδικας VBA για να ελέγξετε αν ένα αρχείο υπάρχει ή όχι (Γρήγορη προβολή)

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Το αρχείο δεν υπάρχει." Else MsgBox "Το αρχείο υπάρχει." End If End Sub 

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

Επισκόπηση του κώδικα VBA για τον έλεγχο της ύπαρξης ή μη ύπαρξης ενός αρχείου (ανάλυση βήμα προς βήμα)

Έτσι, χωρίς άλλη καθυστέρηση, ας περάσουμε στην κύρια συζήτησή μας σήμερα. Θα αναλύσουμε τις VBA κώδικα βήμα προς βήμα για να μάθουμε πώς να ελέγχουμε αν ένα αρχείο υπάρχει ή όχι στον υπολογιστή μας.

⧪ Βήμα 1: Εισαγωγή της απαραίτητης εισόδου

Στην αρχή του κώδικα, πρέπει να εισάγουμε την απαραίτητη είσοδο σε αυτόν. Υπάρχει μόνο μία είσοδος που απαιτείται σε αυτόν τον κώδικα, και αυτή είναι το όνομα του αρχείου που αναζητούμε. Εισάγετε το πλήρες όνομα του αρχείου (μαζί με τον σχετικό κατάλογο).

 File_Name = "C:\ExcelWIKI\Book1.xlsm" 

⧪ Βήμα 2: Εξαγωγή του ονόματος αρχείου με τη λειτουργία Dir της VBA

Στη συνέχεια, θα χρησιμοποιήσουμε ένα μικρό τέχνασμα. Θα χρησιμοποιήσουμε το VBA Λειτουργία Dir για να εξαγάγετε το όνομα του αρχείου. Αν δεν υπάρχει τέτοιο αρχείο, το Λειτουργία Dir θα επιστρέψει μια μηδενική συμβολοσειρά.

 Όνομα αρχείου = Dir(Όνομα αρχείου) 

⧪ Βήμα 3: Έλεγχος της ύπαρξης του αρχείου με τη χρήση ενός μπλοκ If

Αυτό είναι το πιο σημαντικό βήμα. Είπαμε νωρίτερα ότι αν δεν υπάρχει αρχείο με το συγκεκριμένο όνομα, η συνάρτηση Dir επιστρέφει ένα μηδενικό αλφαριθμητικό. Θα χρησιμοποιήσουμε αυτή την ιδιότητα μέσα σε μια If-block για να ελέγξετε αν το αρχείο υπάρχει ή όχι.

 If File_Name = "" Then MsgBox "Το αρχείο δεν υπάρχει." Else MsgBox "Το αρχείο υπάρχει." End If 

Έτσι η πλήρης VBA ο κωδικός θα είναι:

⧭ Κωδικός VBA:

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Το αρχείο δεν υπάρχει." Else MsgBox "Το αρχείο υπάρχει." End If End Sub 

⧭ Έξοδος:

Εκτελέστε τον κώδικα. Στον υπολογιστή μου, θα εμφανιστεί ένα πλαίσιο μηνύματος, "Το αρχείο υπάρχει" , επειδή υπάρχει πράγματι στο μηχάνημά μου.

Στο μηχάνημά σας, η έξοδος μπορεί να είναι διαφορετική ανάλογα με το αν το αρχείο υπάρχει ή όχι.

Διαβάστε περισσότερα: Excel VBA: Ελέγξτε αν υπάρχει φύλλο (2 απλές μέθοδοι)

Ανάπτυξη μιας μακροεντολής για τον έλεγχο μιας σειράς αρχείων που υπάρχει ή δεν υπάρχει χρησιμοποιώντας το Excel VBA

Εδώ έχουμε ένα σύνολο δεδομένων σε ένα φύλλο εργασίας του Excel που περιέχει το όνομα ορισμένων αρχείων μαζί με τους καταλόγους σε εύρος B4:B8 .

Ο στόχος μας είναι να αναπτύξουμε ένα Macro που θα γράφει Υπάρχει / Δεν υπάρχει δίπλα σε κάθε ένα από αυτά, αφού ελέγξετε αν υπάρχουν ή όχι στον υπολογιστή.

⧪ Βήμα 1: Άνοιγμα του παραθύρου VBA

Τύπος ALT + F11 στο πληκτρολόγιό σας για να ανοίξετε το Visual Basic παράθυρο.

⧪ Βήμα 2: Εισαγωγή νέας ενότητας

Πηγαίνετε στο Εισαγωγή> Ενότητα στη γραμμή εργαλείων. Κάντε κλικ στο Ενότητα Μια νέα ενότητα που ονομάζεται Ενότητα1 (ή οτιδήποτε άλλο ανάλογα με το ιστορικό σας) θα ανοίξει.

⧪ Βήμα 3: Τοποθέτηση του κώδικα VBA

Αυτό είναι το πιο σημαντικό βήμα. VBA κώδικα στην ενότητα.

⧭ Κωδικός VBA:

 Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = "" Then Rng.Cells(i, 2) = "Doesn't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ Βήμα 5: Εκτέλεση του κώδικα

Κάντε κλικ στο Εκτέλεση Sub / UserForm από την παραπάνω γραμμή εργαλείων.

Ο κώδικας θα εκτελεστεί. Και θα λάβετε "Υπάρχει" για τα αρχεία που υπάρχουν, και "Δεν υπάρχει" για τα αρχεία που δεν υπάρχουν.

Διαβάστε περισσότερα: Πώς να ελέγξετε αν υπάρχει τιμή σε εύρος τιμών στο Excel (8 τρόποι)

Συμπέρασμα

Ως εκ τούτου, αυτή είναι η διαδικασία για την ανάπτυξη ενός Μάκρο για να στείλετε ένα Email από το Excel με ένα συνημμένο αρχείο. Έχετε ερωτήσεις; Μη διστάσετε να μας ρωτήσετε. Και μην ξεχάσετε να επισκεφθείτε τον ιστότοπό μας ExcelWIKI για περισσότερες αναρτήσεις και ενημερώσεις.