Ελεύθερο αρχείο Excel VBA
Το FreeFile είναι μια συνάρτηση στο VBA που διατίθεται μόνο ως συνάρτηση VBA και όχι ως συνάρτηση φύλλου εργασίας. Η συνάρτηση VBA FreeFile επιστρέφει τον μοναδικό ακέραιο αριθμό στο αρχείο, το οποίο ανοίγει και διατηρεί τον επόμενο διαθέσιμο αριθμό αρχείου.
Συνήθως ανοίγουμε αρχεία από τον υπολογιστή μας για να γράψουμε κάτι ή μόνο για ανάγνωση, ενώ αναφερόμαστε σε αυτά τα αρχεία, πρέπει να αναφέρεται με έναν μοναδικό ακέραιο αριθμό. Η λειτουργία VBA FreeFile μας επιτρέπει να προσδιορίσουμε αυτόν τον μοναδικό ακέραιο αριθμό που θα εκχωρηθεί στο άνοιγμα του αρχείου για ανάγνωση, εγγραφή και άνοιγμα αρχείων χρησιμοποιώντας το VBA.
Τώρα ρίξτε μια ματιά στη σύνταξη της δήλωσης OPEN.
OPEN (Διεύθυνση διαδρομής αρχείου) Για (Λειτουργία για άνοιγμα) Ως (Αριθμός αρχείου)
Διεύθυνση διαδρομής αρχείου: Πρέπει να αναφέρουμε τη διεύθυνση αρχείου στον υπολογιστή μας την οποία προσπαθούμε να ανοίξουμε.
Λειτουργία για άνοιγμα: Κατά το άνοιγμα του αρχείου, πρέπει να γνωρίζουμε τι είδους μοντέλο πρόκειται να εφαρμόσουμε. Μπορούμε να χρησιμοποιήσουμε τρεις τρόπους εδώ, "Λειτουργία εισόδου", "Λειτουργία εξόδου" και "Λειτουργία προσάρτησης".
Λειτουργία εισαγωγής για ανάγνωση μόνο του αρχείου.
Λειτουργία εξόδου για τη διαγραφή των υπαρχόντων δεδομένων και την εισαγωγή νέων δεδομένων.
Προσάρτηση λειτουργίας για προσθήκη νέων δεδομένων διατηρώντας ταυτόχρονα τα υπάρχοντα δεδομένα.
Αριθμός αρχείου: Με αυτό το επιχείρημα, μπορούμε να αναφερθούμε στο αρχείο που ανοίγουμε - αυτό όπου η συνάρτηση "FreeFile" παίζει ζωτικό ρόλο και επιστρέφει τον μοναδικό ακέραιο αριθμό.
Πώς να χρησιμοποιήσετε τη λειτουργία FreeFile στο Excel VBA;
Τώρα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub FreeFile_Example1 () Dim Path As String Dim FileNumber As Integer Path = "D: Articles 2019 File 1.txt" FileNumber = FreeFile Open Path for Output as FileNumber Path = "D: Άρθρα 2019 Αρχείο 2.txt "FileNumber = FreeFile Ανοιχτή διαδρομή για έξοδο ως SubN File End
Επιτρέψτε μου τώρα να αποκωδικοποιήσω τον παραπάνω κώδικα για να καταλάβετε.
Πρώτον, έχω δηλώσει δύο μεταβλητές.
Dim Path As String, Dim FileNumber As Integer
Τότε έχω εκχωρήσει τη διαδρομή αρχείου με το όνομά της.
Διαδρομή = "D: Άρθρα 2019 Αρχείο 1.txt"
Στη συνέχεια, για μια ακόμη μεταβλητή, έχω εκχωρήσει τη συνάρτηση FREEFILE.
FileNumber = FreeFile
Στη συνέχεια, έχω χρησιμοποιήσει την πρόταση Open για να ανοίξω το αρχείο κειμένου στο αρχείο που αναφέρεται παραπάνω διαδρομή.
Άνοιγμα διαδρομής για έξοδο ως αριθμός αρχείου
Εντάξει, τώρα θα τρέξω γραμμικό κώδικα γραμμής πατώντας το πλήκτρο F8 και θα δω την τιμή της μεταβλητής "FileNumber".
Εμφανίζει τον αριθμό αρχείου ως 1. Έτσι, η λειτουργία δωρεάν αρχείου αποθηκεύει αυτόματα αυτόν τον αριθμό στο αρχείο ανοίγματος. Κατά την εκτέλεση αυτού, δεν ανοίγονται άλλα αρχεία.
Τώρα θα συνεχίσω να εκτελώ την επόμενη γραμμή κώδικα VBA και να δω ποιος είναι ο αριθμός αρχείου εάν μεταβείτε στην επόμενη γραμμή.
Τώρα λέει 2. Έτσι, η συνάρτηση FreeFile διατηρεί τον μοναδικό ακέραιο αριθμό 2 στο δεύτερο αρχείο ανοίγματος.
Η λειτουργία FreeFile επιστρέφει πάντα 1 εάν κλείσουμε το αρχείο Excel.
Ένα πράγμα που πρέπει να δούμε είναι η λειτουργία "FreeFile" του VBA επιστρέφει πάντα εάν κλείσουμε το ανοιχτό αρχείο πριν ανοίξουμε το δεύτερο αρχείο excel.
Για παράδειγμα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub FreeFile_Example2 () Dim Path As String Dim FileNumber As Integer Path = "D: Άρθρα 2019 File 1.txt" FileNumber = FreeFile Open Path για έξοδο ως FileNumber Κλείσιμο FileNumber Path = "D: Artikel 2019 File 2 .txt "FileNumber = FreeFile Open Path για έξοδο ως FileNumber Κλείσιμο FileNumber End Sub
Τώρα θα εκτελέσω για άλλη μια φορά τον κωδικό γραμμή προς γραμμή πατώντας το πλήκτρο F8.
Λέει 1 ως συνήθως.
Τώρα θα προχωρήσω στο επόμενο επίπεδο.
Ακόμη και στη δεύτερη προσπάθεια που λέει 1.
Ο λόγος για αυτό είναι επειδή χρησιμοποιήσαμε τη δήλωση Κλείσιμο αρχείου, το FreeFile αναγνωρίζει το αρχείο που άνοιξε πρόσφατα ως νέο και επιστρέφει τον ακέραιο αριθμό ως 1.
