Funktionen FreeFile

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 Open-uttrycket.

Syntax

FreeFile[(rangenumber)]

Det valfria argumentet rangenumber är en 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 till 255. Ange 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 freefile-funktionen 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

Behöver du mer hjälp?

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×