Στο Microsoft Excel, μπορούμε να ελέγξουμε εάν υπάρχει αρχείο σε συγκεκριμένη τοποθεσία χρησιμοποιώντας τον κωδικό VBA. Η μακροεντολή θα εμφανίσει την κατάσταση με τη μορφή πλαισίου μηνύματος. Σε αυτό το άρθρο θα προσδιορίσουμε, εάν υπάρχει ή όχι η κατάσταση ενός συγκεκριμένου αρχείου, με τη βοήθεια του κώδικα VBA. Μπορούμε να χρησιμοποιήσουμε τη συνάρτηση Dir για να ελέγξουμε εάν το αρχείο υπάρχει στην τοποθεσία χρησιμοποιώντας το Excel VBA.
Χρησιμοποιώντας αυτό το πρόγραμμα μπορούμε να ελέγξουμε αν υπάρχει κάποιο αρχείο που υπάρχει ήδη στην ίδια θέση. Έτσι, ώστε να μπορούμε να διαγράψουμε ή να μετονομάσουμε το παλιό αρχείο.
Ερώτηση: Όταν δημιουργούμε μακροεντολή για την αυτοματοποίηση της εργασίας, γενικά αποθηκεύουμε το αρχείο εξόδου σε μια τοποθεσία. Θα ήθελα να έχω μια μακροεντολή για την επαλήθευση και σε αντάλλαγμα να δείξει ότι το αρχείο είναι διαθέσιμο ή όχι στη συγκεκριμένη διαδρομή.
Για να επεξηγήσουμε αυτό το παράδειγμα, θα αποθηκεύσουμε το αρχείο "Sample.xlsx" στη διαδρομή "D: \ FolderName \ Sample.xlsx"
Για να προσδιορίσουμε εάν υπάρχει το βιβλίο εργασίας, πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
- Κάντε κλικ στην επιλογή Εισαγωγή και στη συνέχεια ενότητα
- Αυτό θα δημιουργήσει νέα ενότητα
- Εισαγάγετε τον ακόλουθο κώδικα στην Τυπική μονάδα
Sub FileExists () Dim FilePath As String Dim TestStr As String FilePath = "D: \ FolderName \ Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir (FilePath) On Error GoTo 0 If TestStr = "" Then MsgBox " Το αρχείο δεν υπάρχει "Else Workbooks.Open" D: \ FolderName \ Sample.xlsx "End If End Sub
- Τώρα η μακροεντολή είναι έτοιμη να εκτελεστεί, θα χρησιμοποιήσουμε το πλήκτρο συντόμευσης F5 και θα ανοίξει το αρχείο "Δείγμα"
- Εάν το αρχείο δεν είναι διαθέσιμο στην προκαθορισμένη διαδρομή, τότε θα εμφανιστεί το ακόλουθο πλαίσιο μηνυμάτων
Συμπέρασμα: Με αυτόν τον τρόπο μπορούμε εύκολα να αναγνωρίσουμε, εάν ένα συγκεκριμένο αρχείο υπάρχει ή όχι σε συγκεκριμένη διαδρομή χρησιμοποιώντας τον κώδικα VBA.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email