Πίνακας περιεχομένων
Περιγραφή FreeFile
Επιστρέφει τον επόμενο έγκυρο δωρεάν αριθμό αρχείου (Ακέραιος).
Σύνταξη FreeFile
Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "FreeFile (" για να δείτε τη σύνταξη για τη λειτουργία FreeFile:
Η συνάρτηση FreeFile περιέχει ένα όρισμα:
Εύρος Αριθμός: [Προαιρετικό] 0 (προεπιλογή) για να επιστρέψετε τον αριθμό αρχείου στο εύρος 1-255. 1 για να επιστρέψετε τον αριθμό αρχείου στο εύρος 256-511.
Παραδείγματα της συνάρτησης Excel VBA FreeFile
Εκτελέστε τον ακόλουθο κώδικα.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex As IntegerDim nFileNumber As IntegerDim arrFileNumber (1 έως 3) Ως ακέραιος αριθμόςΓια nIndex = 1 έως 3nFileNumber = FreeFile 'Λήψη αχρησιμοποίητου αριθμού αρχείουarrFileNumber (nIndex) = nFileNumber' αριθμός.Ανοίξτε το "D: \ test" & nIndex & ".txt" Για έξοδο ως nFileNumber 'Δημιουργία ονόματος αρχείου.Γράψτε #nFileNumber, "Ο αριθμός αρχείου αυτού του αρχείου είναι" & nFileNumber 'Output text. "Επόμενο nIndexΓια nIndex = 1 έως 3Κλείσιμο arrFileNumber (nIndex) 'Κλείσιμο αρχείου.Επόμενο nIndexΤέλος υπο |
Αυτό θα δημιουργήσει 3 αρχεία στη μονάδα δίσκου D.
test1.txt: "Ο αριθμός αρχείου αυτού του αρχείου είναι 1"
test2.txt: "Ο αριθμός αρχείου αυτού του αρχείου είναι 2"
test3.txt: "Ο αριθμός αρχείου αυτού του αρχείου είναι 3"
Αυτό δείχνει ότι επιστρέφει 1, 2, 3 με τη λειτουργία FreeFile.
