Μια μακροεντολή Excel για να εξακριβωθεί αν υπάρχει ένα βιβλίο εργασίας - dummies

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

Πώς λειτουργεί η μακροεντολή

Το πρώτο πράγμα που πρέπει να παρατηρήσετε σχετικά με αυτήν τη μακροεντολή είναι ότι πρόκειται για μια συνάρτηση, όχι για μια διαδικασία Sub. Κάνοντας αυτή τη μακροεντολή μια λειτουργία σας επιτρέπει να περάσετε οποιαδήποτε διαδρομή αρχείου σε αυτήν.

Σε αυτήν τη μακροεντολή, χρησιμοποιείτε τη λειτουργία Dir, η οποία επιστρέφει μια συμβολοσειρά που αναπαριστά το όνομα του αρχείου που ταιριάζει με αυτό που περνάτε σε αυτήν. Αυτή η λειτουργία μπορεί να χρησιμοποιηθεί με πολλούς τρόπους, αλλά εδώ, χρησιμοποιείτε το για να ελέγξετε αν υπάρχει η διαδρομή αρχείου που περνάτε σε αυτήν:

Λειτουργία FileExists (FPath As String) Ως Boolean 'Βήμα 1: Δηλώστε τις μεταβλητές σας Dim FName As String 'Βήμα 2: Χρησιμοποιήστε τη λειτουργία Dir για να πάρετε το όνομα αρχείου FName = Dir (FPath)' Βήμα 3: Εάν υπάρχει αρχείο, επιστρέψτε True. αλλιώς False Αν FName "Τότε FileExists = True _ Else: FileExists = Λειτουργία False End

Το βήμα 1 δηλώνει μια μεταβλητή String που κρατά το όνομα αρχείου που επιστρέφει από τη συνάρτηση Dir.FName είναι το όνομα της μεταβλητής String

Στο βήμα 2 προσπαθείτε να ορίσετε τη μεταβλητή FName.Αναφέρεστε με τη μεταβίβαση της μεταβλητής FPath στη λειτουργία Dir.Η μεταβλητή αυτή FPath διαβιβάζεται μέσω των δηλώσεων λειτουργίας (δείτε την πρώτη γραμμή ο κώδικας.) Αυτή η δομή σας εμποδίζει να κάνετε σκληρή κωδικοποίηση μιας διαδρομής αρχείου, μεταφέροντάς την ως μεταβλητή αντί

Αν δεν είναι δυνατή η ρύθμιση της μεταβλητής FName, η διαδρομή που πέρασα δεν υπάρχει. η μεταβλητή είναι κενή.Το βήμα 3 απλά μεταφράζει αυτό το αποτέλεσμα σε μια αληθινή ή ψεύτικη έκφραση

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

Η ακόλουθη μακροεντολή δείχνει πώς να χρησιμοποιήσετε αυτήν τη λειτουργία:

Sub Macro1 () Εάν το FileExists ("C: TempMyNewBook ​​.xlsx") = True Στη συνέχεια υπάρχει το αρχείο MsgBox "Το αρχείο υπάρχει." Else MsgBox "Το αρχείο δεν υπάρχει." End If End Sub

Πώς να χρησιμοποιήσετε τη μακροεντολή

Για να εφαρμόσετε αυτήν τη μακροεντολή, μπορείτε να αντιγράψετε και να επικολλήσετε και τα δύο κομμάτια κώδικα τυπική ενότητα:

Ενεργοποιήστε τον επεξεργαστή της Visual Basic πατώντας Alt + F11.

1. Κάντε δεξί κλικ στο όνομα του έργου / βιβλίου εργασίας στο παράθυρο του έργου.

2. Επιλέξτε Εισαγωγή → Ενότητα.

3. Πληκτρολογήστε ή επικολλήστε τον κώδικα στη νεοδημιουργηθείσα ενότητα.