Função FreeFile

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Nota: A função, método, objeto ou propriedade descritas neste tópico é desativada se o serviço do Microsoft Jet expressão estiver em execução no modo sandbox, que impede a avaliação de expressões potencialmente inseguros. Para obter mais informações sobre o modo sandbox, procure "o modo sandbox" na ajuda.

Devolve um número inteiro que representa o seguinte número de ficheiro disponíveis para utilização à instrução Open .

Sintaxe

FreeFile [(númerointervalo)]

O argumento opcional númerointervalo é uma variante que especifica o intervalo a partir do qual deve ser devolvido o número de ficheiro livre seguinte. Especifique um 0 (predefinição) para devolver um número de ficheiro no intervalo 1 – 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 já não está a ser utilizado.

Exemplo

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo utiliza a função FreeFile para devolver o número de ficheiro disponíveis seguinte. Cinco ficheiros são abertos para saída dentro do ciclo e escritos alguns dados de exemplo para 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
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×