Função FreeFile

Observação: A função, o método, o objeto ou a propriedade descrita neste tópico será desabilitada se o Serviço de Expressão do Microsoft Jet estiver em execução no modo de área de segurança, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo de área de segurança, pesquise por "modo de área de segurança" na Ajuda.

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

Sintaxe

FreeFile[(rangenumber)]

O argumento rangenumber opcional é um Variant que especifica o intervalo a partir do qual o próximo número de arquivo livre 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 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 Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na listada 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.

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

Precisa de mais ajuda?

Expanda suas habilidades no Office
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×