Popis souboru FreeFile
Vrátí další platné bezplatné číslo souboru (Integer).
Syntaxe souboru FreeFile
V editoru VBA můžete zadat „FreeFile (“ a zobrazit syntaxi funkce FreeFile:
Funkce FreeFile obsahuje argument:
RozsahČíslo: [Volitelné] 0 (výchozí) pro vrácení čísla souboru v rozsahu 1-255. 1 vrátí číslo souboru v rozsahu 256-511.
Příklady funkce Excel VBA FreeFile
Spusťte prosím následující kód.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex jako celé čísloDim nFileNumber jako celé čísloDim arrFileNumber (1 To 3) As IntegerPro nIndex = 1 až 3nFileNumber = FreeFile 'Získejte nepoužité číslo souboruarrFileNumber (nIndex) = nFileNumber'číslo.Otevřete „D: \ test“ & nIndex & „.txt“ pro výstup jako nFileNumber 'Vytvořte název souboru.Napište #nFileNumber, "Číslo souboru tohoto souboru je" & nFileNumber 'Výstupní text. "Další nIndexPro nIndex = 1 až 3Zavřít arrFileNumber (nIndex) 'Zavřít soubor.Další nIndexEnd Sub |
Tím se na disku D vytvoří 3 soubory.
test1.txt: „Číslo souboru tohoto souboru je 1”
test2.txt: „Číslo souboru tohoto souboru je 2“
test3.txt: „Číslo souboru tohoto souboru je 3“
To ukazuje, že vrací 1, 2, 3 podle funkce FreeFile.
