Função FreeFile

Retorna um Inteiro que representa o próximo número de arquivo disponível para uso pela instrução Open .

Sintaxe

FreeFile [ (rangenumber) ]

O argumento de número de intervalo opcional é uma Variant que especifica o intervalo do qual o próximo número de arquivo gratuito deve ser retornado. Especifique um 0 (padrão) para retornar um número de arquivo no intervalo de 1 a 255, inclusive. Especifique um 1 para retornar um número de arquivo no intervalo 256-511.

Comentários

Use o FreeFile para fornecer um número de arquivo que ainda não está em uso.

Exemplo

Este exemplo usa a função FreeFile para retornar o próximo número de arquivo disponível. Cinco arquivos são abertos para saída dentro do loop e alguns dados de exemplo são gravados em cada um deles.

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.