Funkcija FreeFile

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Piezīme : Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Atgriež vesels skaitlis, kas pārstāv nākamo faila numurs var izmantot ar Open priekšrakstu.

Sintakse

FreeFile [(rangenumber)]

Neobligāti rangenumber arguments ir variantu, kas norāda diapazonu, no kura nākamo bezmaksas failu numuru ir jāatgriež. Norādiet 0 (noklusējums), lai tiktu atgriezts faila numurs diapazonā 1 – 255, ieskaitot. Norādiet 1, lai tiktu atgriezts faila numurs diapazonā 256 – 511.

Piezīmes

Izmantojiet FreeFile jānorāda faila numuru, kas jau 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ā izmantota funkcija FreeFile , lai atgrieztu nākamo pieejamo faila numuru. Piecas faili tiek atvērti izvadei laikā nepārtraukta un piemēra dati ir rakstīts ar katru.

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

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas 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 varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×