Opis FreeFile
Zwraca następny prawidłowy wolny numer pliku (liczba całkowita).
Składnia FreeFile
W edytorze VBA możesz wpisać „FreeFile (”, aby zobaczyć składnię funkcji FreeFile:
Funkcja FreeFile zawiera argument:
Numer zakresu: [Opcjonalnie] 0 (domyślnie), aby zwrócić numer pliku z zakresu 1-255. 1, aby zwrócić numer pliku z zakresu 256-511.
Przykłady funkcji Excel VBA FreeFile
Uruchom następujący kod.
| 1234567891011121314151617 | Sub FreeFile_Example()Dim nIndex jako liczba całkowitaDim nFileNumber jako liczba całkowitaDim arrFileNumber(1 do 3) jako liczba całkowitaDla nIndex = 1 do 3nFileNumber = FreeFile ' Uzyskaj nieużywany numer plikuarrFileNumber(nIndex) = nFileNumbernumer.Otwórz "D:\test" & nIndex & ".txt" For Output As nFileNumber ' Utwórz nazwę pliku.Napisz #nFileNumber, "Numer pliku tego pliku to " & nFileNumber ' Tekst wyjściowy."Następny nIndeksDla nIndex = 1 do 3Close arrFileNumber(nIndex) ' Zamknij plik.Następny nIndeksNapis końcowy |
Spowoduje to utworzenie 3 plików na dysku D.
test1.txt: „Numer pliku tego pliku to 1”
test2.txt: „Numer pliku tego pliku to 2”
test3.txt: „Numer pliku tego pliku to 3”
To pokazuje, że zwraca 1, 2, 3 przez funkcję FreeFile.
