Observação: A função, método, objeto ou propriedade descrita neste tópico será desabilitada se o Serviço de Expressão de Jato da Microsoft estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo de área restrita, procure por "modo de área restrita" na Ajuda.
Retorna um Inteiro que representa o próximo número do 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 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
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
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.
' 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
