Descrição do FreeFile
Retorna o próximo número de arquivo livre válido (inteiro).
Sintaxe FreeFile
No Editor VBA, você pode digitar “FreeFile (” para ver a sintaxe da função FreeFile:
A função FreeFile contém um argumento:
RangeNumber: [Opcional] 0 (padrão) para retornar o número do arquivo no intervalo 1-255. 1 para retornar o número do arquivo no intervalo 256-511.
Exemplos de função Excel VBA FreeFile
Execute o seguinte código.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex As IntegerDim nFileNumber As IntegerDim arrFileNumber (1 a 3) As IntegerPara nIndex = 1 a 3nFileNumber = FreeFile 'Obter número de arquivo não utilizadoarrFileNumber (nIndex) = nFileNumber' número.Abra "D: \ test" & nIndex & ".txt" para saída como nFileNumber 'Crie o nome do arquivo.Escreva #nFileNumber, "O número deste arquivo é" & nFileNumber 'Texto de saída. "Next nIndexPara nIndex = 1 a 3Fechar arrFileNumber (nIndex) 'Fechar arquivo.Next nIndexEnd Sub |
Isso criará 3 arquivos na unidade D.
test1.txt: “O número deste arquivo é 1”
test2.txt: “O número deste arquivo é 2”
test3.txt: “O número deste arquivo é 3”
Isso mostra que retorna 1, 2, 3 pela função FreeFile.
