VBA FreeFile funktsioon

FreeFile kirjeldus

Tagastab järgmise kehtiva tasuta failinumbri (täisarv).

FreeFile'i süntaks

VBA redaktoris saate FreeFile funktsiooni süntaksi nägemiseks tippida "FreeFile ("):

Funktsioon FreeFile sisaldab argumenti:

Vahemiku arv: [Valikuline] 0 (vaikimisi) failinumbri tagastamiseks vahemikus 1-255. 1 failinumbri tagastamiseks vahemikus 256-511.

Excel VBA FreeFile funktsiooni näited

Palun käivitage järgmine kood.

1234567891011121314151617

Sub FreeFile_Example ()Dim nIndex täisarvunaDim nFileNumber täisarvunaDim arrFileNumber (1 kuni 3) täisarvunaNIndex = 1 kuni 3nFileNumber = FreeFile 'Hangi kasutamata failinumberarrFileNumber (nIndex) = nFileNumber'number.Avage "D: \ test" & nIndex & ".txt" Väljundiks nFileNumber 'Loo failinimi.Kirjutage #nFileNumber, "Selle faili failinumber on" & nFileNumber 'Väljundtekst. "Järgmine nIndexNIndex = 1 kuni 3Sulge arrFileNumber (nIndex) 'Faili sulgemine.Järgmine nIndexEnd Sub

See loob D -draivi 3 faili.

test1.txt: "Selle faili failinumber on 1"

test2.txt: "Selle faili failinumber on 2"

test3.txt: "Selle faili failinumber on 3"

See näitab, et tagastab funktsiooni FreeFile abil 1, 2, 3.