Opis besplatne datoteke
Vraća sljedeći valjani besplatni broj datoteke (cijeli broj).
Sintaksa FreeFile
U VBA Editor -u možete upisati "FreeFile (" da vidite sintaksu funkcije FreeFile:
Funkcija FreeFile sadrži argument:
Broj raspona: [Izborno] 0 (zadano) za vraćanje broja datoteke u rasponu 1-255. 1 za vraćanje broja datoteke u rasponu 256-511.
Primjeri Excel VBA FreeFile funkcije
Pokrenite sljedeći kôd.
| 1234567891011121314151617 | Sub FreeFile_Example ()Zatamnite nIndex kao cijeli brojDim nFileNumber kao cijeli brojDim arrFileNumber (1 do 3) Kao cijeli brojZa nIndex = 1 do 3nFileNumber = FreeFile 'Dobijte neiskorišteni broj datotekearrFileNumber (nIndex) = nFileNumber'broj.Otvorite "D: \ test" & nIndex & ".txt" Za izlaz kao nFileNumber 'Stvorite naziv datoteke.Napišite #nFileNumber, "Broj datoteke ove datoteke je" & nFileNumber "Izlazni tekst."Sljedeći nIndexZa nIndex = 1 do 3Zatvori arrFileNumber (nIndex) 'Zatvori datoteku.Sljedeći nIndexKraj podm |
To će stvoriti 3 datoteke na D pogonu.
test1.txt: "Broj datoteke ove datoteke je 1"
test2.txt: "Broj datoteke ove datoteke je 2"
test3.txt: "Broj datoteke ove datoteke je 3"
Ovo pokazuje da vraća 1, 2, 3 pomoću funkcije FreeFile.
