Opis brezplačne datoteke
Vrne naslednjo veljavno brezplačno številko datoteke (celo število).
Sintaksa FreeFile
V urejevalniku VBA lahko vnesete »FreeFile («), če si želite ogledati skladnjo funkcije FreeFile:
Funkcija FreeFile vsebuje argument:
RangeNumber: [Izbirno] 0 (privzeto) za vrnitev številke datoteke v območju 1-255. 1, da vrnete številko datoteke v območju 256-511.
Primeri funkcije Excel VBA FreeFile
Prosimo, zaženite naslednjo kodo.
| 1234567891011121314151617 | Sub FreeFile_Example ()Zatemni nIndex kot celo številoZatemni nFileNumber kot celo številoZatemni arrFileNumber (1 do 3) kot celo številoZa nIndex = 1 do 3nFileNumber = FreeFile 'Pridobite neuporabljeno številko datotekearrFileNumber (nIndex) = nFileNumber'številka.Odprite "D: \ test" & nIndex & ".txt" For Output As nFileNumber 'Ustvari ime datoteke.Napišite #nFileNumber, "Številka datoteke te datoteke je" & nFileNumber "Izhodno besedilo."Naslednji nIndexZa nIndex = 1 do 3Zapri arrFileNumber (nIndex) 'Zapri datoteko.Naslednji nIndexEnd Sub |
To bo ustvarilo 3 datoteke na pogonu D.
test1.txt: "Številka datoteke te datoteke je 1"
test2.txt: "Številka datoteke te datoteke je 2"
test3.txt: "Številka datoteke te datoteke je 3"
To kaže, da funkcija FreeFile vrne 1, 2, 3.
