Funkcija FreeFile

Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft" Jet Expression tarnyba veikia smėlio dėžės režimu, o tai neleidžia įvertinti potencialiai nesaugių reiškinių. Norėdami gauti daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".

Pateikia sveikąjį skaičių, reiškiantį paskesnį failo numeris, kurį galite naudoti atidarydami sakinį.

Sintaksė

FreeFile[(rangenumber)]

Pasirinktinis " rangenumber " argumentas yra variantas, nurodantis intervalą, nuo kurio turi būti grąžintas kitas nemokamas failo numeris. Nustatykite 0 (numatytasis parametras), kad grąžintumėte failo numerį 1 – 255, imtinai. Nustatykite 1, kad grąžintumėte failo numerį į "256" – "511".

Pastabos

Naudokite FreeFile , kad būtų galima pateikti dar nenaudnaudojamą failo numerį.

Pavyzdys

Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkcija FreeFile , kad būtų grąžintas kitas galimas failo numeris. Penki failai atidaromi, kad būtų galima išvesti per ciklą, o kai kurie duomenų pavyzdžiai yra parašyti kiekvienam.

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

Reikia daugiau pagalbos?

Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×