Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".

Vrátí celé číslo představující další Číslo souboru k dispozici pro použití příkazem Open .

Syntaxe

FreeFile[(číslo_rozsahu)]

Volitelný argument rangenumber je varianta, která určuje rozsah, ze kterého se má vrátit další volné číslo souboru. Zadejte 0 (výchozí) pro vrácení čísla souboru v rozsahu 1 až 255 (včetně). Zadejte 1, která vrátí číslo souboru v rozsahu 256–511.

Poznámky

Pomocí FreeFile zadejte číslo souboru, které se ještě nepoužívá.

Příklad

Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.

Tento příklad používá funkci FreeFile k vrácení dalšího dostupného čísla souboru. Pro výstup ve smyčce se otevře pět souborů a do každého se zapisují ukázková data.

Dim MyIndex, FileNumberFor 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 #FileNumberNext MyIndex

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.