Obs
Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.
Returnerar ett Heltal som representerar nästa filnummer som är tillgängligt för användning av instruktionen Öppna .
Syntax
FreeFile[(rangenumber)]
Det valfria argumentet områdesnummer är ett värde av datatypen Variant som anger det intervall som nästa kostnadsfria filnummer ska returneras från. Ange 0 (standard) för att returnera ett filnummer i intervallet 1–255. Ange ett 1 för att returnera ett filnummer i intervallet 256–511.
Kommentarer
Använd FreeFile för att ange ett filnummer som inte redan används.
Exempel
Obs
I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används funktionen FreeFile för att returnera nästa tillgängliga filnummer. Fem filer öppnas för utdata i slingan och vissa exempeldata skrivs till var och en.
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