seychellesartprojects.org

Ελεύθερο αρχείο Excel VBA

Το FreeFile είναι μια συνάρτηση στο VBA που διατίθεται μόνο ως συνάρτηση VBA και όχι ως συνάρτηση φύλλου εργασίας. Η συνάρτηση VBA FreeFile επιστρέφει τον μοναδικό ακέραιο αριθμό στο αρχείο που ανοίγει και διατηρεί τον αριθμό για τον επόμενο διαθέσιμο αριθμό αρχείου.

Συνήθως ανοίγουμε αρχεία από τον υπολογιστή μας για να γράψουμε κάτι ή μόνο για ανάγνωση, ενώ αναφερόμαστε σε αυτά τα αρχεία που πρέπει να αναφέρουμε με έναν μοναδικό ακέραιο αριθμό. Η λειτουργία VBA FreeFile μας επιτρέπει να προσδιορίσουμε αυτόν τον μοναδικό ακέραιο αριθμό που θα εκχωρηθεί στο άνοιγμα του αρχείου για ανάγνωση, εγγραφή και άνοιγμα αρχείων χρησιμοποιώντας το VBA.

Τώρα ρίξτε μια ματιά στη σύνταξη της δήλωσης OPEN.

OPEN [Διεύθυνση διαδρομής αρχείου] Για [Λειτουργία ανοίγματος] Ως [Αριθμός αρχείου]

Διεύθυνση διαδρομής αρχείου: Πρέπει να αναφέρουμε τη διεύθυνση αρχείου στον υπολογιστή μας την οποία προσπαθούμε να ανοίξουμε.

Λειτουργία για άνοιγμα: Κατά το άνοιγμα του αρχείου πρέπει να γνωρίζουμε τι είδους μοντέλο πρόκειται να εφαρμόσουμε. Μπορούμε να χρησιμοποιήσουμε τρεις λειτουργίες εδώ, "Λειτουργία εισόδου", "Λειτουργία εξόδου" και "Λειτουργία προσάρτησης".

Λειτουργία εισαγωγής για ανάγνωση μόνο του αρχείου.

Λειτουργία εξόδου για τη διαγραφή των υπαρχόντων δεδομένων και την εισαγωγή νέων δεδομένων.

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

Αριθμός αρχείου: Με αυτό το όρισμα, μπορούμε να αναφερθούμε στο αρχείο που ανοίγουμε. Εκεί όπου η λειτουργία "FreeFile" παίζει ζωτικό ρόλο και επιστρέφει τον μοναδικό ακέραιο αριθμό.

Πώς να χρησιμοποιήσετε τη λειτουργία FreeFile στο Excel VBA;

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA FreeFile Excel εδώ - Πρότυπο VBA FreeFile Excel

Τώρα, δείτε τον παρακάτω κώδικα.

Κώδικας:

 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 επιστρέφει πάντα 1 εάν κλείσουμε το ανοιχτό αρχείο πριν ανοίξουμε το δεύτερο αρχείο 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.