Funkcija FreeFile

Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas novērš potenciāli nedrošu izteiksmju novērtējumu. Lai iegūtu papildinformāciju par smilškastes režīmu, sadaļā Palīdzība meklējiet "smilškastes režīms".

Atgriež veselu skaitli, kas attēlo nākamo faila numurs, kas pieejama izmantošanai priekšrakstā Open .

Sintakse

FreeFile[(rangenumber)]

Neobligāts rangenumber arguments ir variants, kas norāda diapazonu, no kura ir jāatgriež nākamais bezmaksas faila numurs. Norādiet 0 (noklusējums), lai atgrieztu faila numuru diapazonā no 1 līdz 255 (ieskaitot). Norādiet 1, lai atgrieztu faila numuru diapazonā 256 – 511.

Piezīmes

Izmantojiet FreeFile , lai nodrošinātu faila numuru, kas vēl netiek lietots.

Piemērs

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā funkcija FreeFile tiek izmantota, lai atgrieztu nākamo pieejamo faila numuru. Tiek atvērti pieci faili, lai veiktu izvadi cilpā, un daļa datu paraugu ir ierakstīti katrā.

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

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×