Descriere FreeFile
Returnează următorul număr de fișier gratuit valabil (întreg).
Sintaxa FreeFile
În Editorul VBA, puteți tasta „FreeFile (” pentru a vedea sintaxa funcției FreeFile:
Funcția FreeFile conține un argument:
RangeNumber: [Opțional] 0 (implicit) pentru a returna numărul fișierului în intervalul 1-255. 1 pentru a returna numărul fișierului în intervalul 256-511.
Exemple de funcții Excel VBA FreeFile
Vă rugăm să rulați următorul cod.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex As IntegerDim nFileNumber Ca întregDim arFileNumber (1 la 3) ca întregPentru nIndex = 1 până la 3nFileNumber = FreeFile 'Obțineți numărul de fișier neutilizatarrFileNumber (nIndex) = nFileNumber' număr.Deschideți „D: \ test” & nIndex & „.txt” Pentru ieșire ca nFileNumber 'Creați numele fișierului.Scrieți #nFileNumber, "Numărul fișierului acestui fișier este" & nFileNumber 'Text de ieșire. "Următorul nIndexPentru nIndex = 1 până la 3Închideți ArrFileNumber (nIndex) 'Închideți fișierul.Următorul nIndexSfârșitul Sub |
Aceasta va crea 3 fișiere pe unitatea D.
test1.txt: „Numărul fișierului acestui fișier este 1”
test2.txt: „Numărul fișierului acestui fișier este 2”
test3.txt: „Numărul fișierului acestui fișier este 3”
Aceasta arată că returnează 1, 2, 3 prin funcția FreeFile.
