Satura rādītājs
FreeFile apraksts
Atgriež nākamo derīgo bezmaksas faila numuru (vesels skaitlis).
FreeFile sintakse
VBA redaktorā varat ierakstīt “FreeFile (”), lai skatītu FreeFile funkcijas sintaksi:
Funkcija FreeFile satur šādu argumentu:
Diapazona numurs: [Neobligāti] 0 (noklusējums), lai atgrieztu faila numuru diapazonā no 1-255. 1, lai atgrieztu faila numuru diapazonā 256-511.
Excel VBA FreeFile funkcijas piemēri
Lūdzu, palaidiet šādu kodu.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex kā vesels skaitlisDim nFileNumber kā vesels skaitlisDim arrFileNumber (no 1 līdz 3) kā vesels skaitlisAttiecībā uz nIndex = 1 līdz 3nFileNumber = FreeFile 'Iegūstiet neizmantoto faila numuruarrFileNumber (nIndex) = nFileNumber'numurs.Atveriet "D: \ test" & nIndex & ".txt" Izvadei kā nFileNumber 'Izveidojiet faila nosaukumu.Uzrakstiet #nFileNumber, "Šī faila faila numurs ir" & nFileNumber "izvades teksts."Nākamais nIndexAttiecībā uz nIndex = 1 līdz 3Aizvērt arrFileNumber (nIndex) 'Aizvērt failu.Nākamais nIndexBeigu apakš |
Tādējādi D diskā tiks izveidoti 3 faili.
test1.txt: “Šī faila faila numurs ir 1”
test2.txt: “Šī faila faila numurs ir 2”
test3.txt: “Šī faila faila numurs ir 3”
Tas parāda, ka pēc FreeFile funkcijas atgriež 1, 2, 3.
