FreeFile aprašymas
Grąžina kitą galiojantį nemokamą failo numerį (sveikasis skaičius).
FreeFile sintaksė
VBA redaktoriuje galite įvesti „FreeFile (“), kad pamatytumėte „FreeFile“ funkcijos sintaksę:
Funkcijoje „FreeFile“ yra argumentas:
Diapazono numeris: [Pasirenkama] 0 (numatytasis), kad būtų grąžintas 1-255 diapazono failo numeris. 1, kad būtų grąžintas failo numeris diapazone 256-511.
„Excel VBA FreeFile“ funkcijos pavyzdžiai
Prašome paleisti šį kodą.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex As IntegerDim nFileNumber As IntegerDim arrFileNumber (nuo 1 iki 3) kaip sveikasis skaičius„NIndex“ = 1–3nFileNumber = FreeFile 'Gaukite nepanaudotą failo numerįarrFileNumber (nIndex) = nFileNumber'numeris.Atidarykite "D: \ test" & nIndex & ".txt", kad išvestis būtų kaip nFileNumber 'Sukurti failo pavadinimą.Parašykite #nFileNumber, „Šio failo failo numeris yra„ & nFileNumber “išvesties tekstas“.Kitas nIndex„NIndex“ = 1–3Uždaryti arrFileNumber (nIndex) 'Uždaryti failą.Kitas nIndexPabaiga Sub |
Tai sukurs 3 failus D diske.
test1.txt: „Šio failo failo numeris yra 1“
test2.txt: „Šio failo failo numeris yra 2“
test3.txt: „Šio failo failo numeris yra 3“
Tai rodo, kad „FreeFile“ funkcija grąžina 1, 2, 3.
