Função FreeFile

Devolve um Número Inteiro que representa o número de ficheiro seguinte disponível para utilização pela instrução Open .

Sintaxe

FreeFile [ (rangenumber) ]

O argumento rangenumber opcional é uma Variante que especifica o intervalo a partir do qual o próximo número de ficheiro gratuito será devolvido. Especifique um 0 (predefinição) para devolver um número de ficheiro no intervalo 1 a 255, inclusive. Especifique um 1 para devolver um número de ficheiro no intervalo 256–511.

Comentários

Utilize FreeFile para fornecer um número de ficheiro que ainda não esteja a ser utilizado.

Exemplo

Este exemplo utiliza a função FreeFile para devolver o número de ficheiro disponível seguinte. São abertos cinco ficheiros para saída dentro do ciclo e alguns dados de exemplo são escritos em cada um.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file
        ' number.
    Open "TEST" & MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex

Confira também

• Funções (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.