Funkcja FreeFile

Ważne : Ten artykuł został przetłumaczony maszynowo, zobacz zastrzeżenie. Angielskojęzyczną wersję tego artykułu można znaleźć tutaj .

Uwaga : Funkcja, metody, obiektu lub właściwości opisane w tym temacie jest wyłączona, jeśli usługa wyrażeń programu Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oceny potencjalnie niebezpieczne wyrażenia. Aby uzyskać więcej informacji na temat trybu piaskownicy wyszukaj ciąg "tryb piaskownicy" w Pomocy.

Zwraca liczbę całkowitą odpowiadającą następnego numer pliku dostępne do użycia przez instrukcji Open .

Składnia

FreeFile [(zakres_numerów)]

Argument opcjonalny zakres_numerów jest wartość typu Wariant, który określa zakres, z którego ma zostać zwrócone następny numer pliku bezpłatne. Określ wartość 0 (ustawienie domyślne) zostanie zwrócony numer pliku z zakresu od 1 do 255 włącznie. Określ wartość 1, zostanie zwrócony numer pliku z przedziału 256 do 511.

Spostrzeżenia

Za pomocą FreeFile numer pliku, który nie jest już używana.

Przykład

Uwaga : Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.

W tym przykładzie funkcja FreeFile zwraca następny dostępny numer pliku. Otwierania pięciu plików dla danych wyjściowych w pętli i przykładowe dane są zapisywane na każdym.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex

Uwaga : Zrzeczenie dotyczące tłumaczenia maszynowego: Ten artykuł został przetłumaczony przez system komputerowy bez interwencji człowieka. Firma Microsoft udostępnia te tłumaczenia maszynowe, aby ułatwić użytkownikom, którzy nie znają języka angielskiego, korzystanie z zawartości dotyczącej produktów, usług i technologii firmy Microsoft. Ponieważ ten artykuł został przetłumaczony maszynowo, może zawierać błędy w słownictwie, składniowe lub gramatyczne.

Rozwijaj swoje umiejętności
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×