Office
Conectare

Funcția FreeFile

Notă: Dorim să vă oferim cel mai recent conținut de ajutor, cât mai rapid posibil, în limba dvs. Această pagină a fost tradusă automatizat și poate conține erori gramaticale sau inexactități. Scopul nostru este ca acest conținut să vă fie util. Vă rugăm să ne spuneți dacă informațiile v-au fost utile, în partea de jos a acestei pagini. Aici se află articolul în limba engleză, ca să îl puteți consulta cu ușurință.

Notă: Funcția, metodă, obiecte sau proprietatea cum este descris în acest subiect este dezactivat dacă serviciul de expresie Microsoft Jet se execută în modul sandbox, ceea ce împiedică evaluarea expresii potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în ajutor.

Returnează un număr întreg care reprezintă următoarea număr fișier disponibile pentru utilizare cu instrucțiunea Open .

Sintaxă

FreeFile [(rangenumber)]

Argumentul opțional rangenumber este o valoare Variant care specifică zona din care numărul gratuit fișier următor este să fie returnate. Specificați un 0 (implicit) pentru a returna un număr de fișier în zona 1-255, inclusiv. Specificați un 1 pentru a returna un număr de fișier din zona 256-511.

Observații

Utilizați FreeFile pentru a furniza un număr de fișier care nu este deja în uz.

Exemplu

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția FreeFile pentru a reveni la următorul număr fișier disponibile. Cinci fișierele sunt deschise pentru un rezultat în buclă și câteva date eșantion este scris la fiecare.

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
Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×