Funkcija FreeFile

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Napomena : Funkcija, način, objekt ili svojstvo koje su opisane u ovoj temi onemogućeno je ako Microsoft Jet Expression Service izvodi u načinu rada s memorijom za testiranje, što sprječava potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje ključnoj riječi "način rada s memorijom za testiranje" u sustavu pomoći.

Vraća cijeli broj koji predstavlja na sljedeći broj datoteke dostupan za korištenje po naredbu Otvori .

Sintaksa

FreeFile [(rangenumber)]

Neobavezni rangenumber argument je varijanta koji određuje raspon iz kojeg broja datoteke je vratiti. Odredite 0 (zadano) da biste se vratili broja datoteke u rasponu 1 – 255, uključujući te dvije vrijednosti. Odredite 1 za vraćanje broja datoteke u rasponu 256 – 511.

Napomene

Pomoću FreeFile navedite broj datoteka koje se još ne koristi.

Primjer

Napomena : Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru koristi funkcija FreeFile da biste se vratili sljedeći broj dostupna datoteka. Pet datoteka je otvoreno za izgled unutar petlje, a za svaki je napisan ogledne podatke.

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

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×