Popis súboru FreeFile
Vráti ďalšie platné bezplatné číslo súboru (celé číslo).
Syntax súboru FreeFile
V editore VBA môžete zadaním „FreeFile (“ zobraziť syntax funkcie FreeFile:
Funkcia FreeFile obsahuje argument:
Číslo radu: [Voliteľné] 0 (predvolené) na vrátenie čísla súboru v rozsahu 1-255. 1 vráti číslo súboru v rozsahu 256-511.
Príklady funkcie Excel VBA FreeFile
Spustite nasledujúci kód.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex ako celé čísloDim nFileNumber ako celé čísloDim arrFileNumber (1 až 3) ako celé čísloPre nIndex = 1 až 3nFileNumber = FreeFile 'Získajte nepoužívané číslo súboruarrFileNumber (nIndex) = nFileNumber'číslo.Otvorte „D: \ test“ & nIndex & „.txt“ pre výstup ako nFileNumber 'Vytvorte názov súboru.Napíšte #nFileNumber, „Číslo súboru tohto súboru je„ & nFileNumber 'Výstupný text. "Ďalší nIndexPre nIndex = 1 až 3Zatvoriť arrFileNumber (nIndex) 'Zavrieť súbor.Ďalší nIndexKoniec pod |
Na jednotke D sa tak vytvoria 3 súbory.
test1.txt: „Číslo súboru tohto súboru je 1”
test2.txt: „Číslo súboru tohto súboru je 2”
test3.txt: „Číslo súboru tohto súboru je 3”
To ukazuje, že vráti 1, 2, 3 podľa funkcie FreeFile.
