Tabla de contenido
Descripción de FreeFile
Devuelve el siguiente número de archivo libre válido (entero).
Sintaxis de FreeFile
En el Editor de VBA, puede escribir "FreeFile (" para ver la sintaxis de la función FreeFile:
La función FreeFile contiene un argumento:
RangeNumber: [Opcional] 0 (predeterminado) para devolver el número de archivo en el rango 1-255. 1 para devolver el número de archivo en el rango 256-511.
Ejemplos de la función FreeFile de Excel VBA
Ejecute el siguiente código.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex como enteroDim nFileNumber como enteroDim arrFileNumber (1 a 3) como enteroPara nIndex = 1 a 3nFileNumber = FreeFile 'Obtener el número de archivo no utilizadoarrFileNumber (nIndex) = nFileNumber' número.Abra "D: \ test" & nIndex & ".txt" para la salida como nFileNumber 'Crear nombre de archivo.Escriba #nFileNumber, "El número de archivo de este archivo es" & nFileNumber 'Texto de salida ".Siguiente nIndexPara nIndex = 1 a 3Cerrar arrFileNumber (nIndex) 'Cerrar archivo.Siguiente nIndexEnd Sub |
Esto creará 3 archivos en la unidad D.
test1.txt: "El número de archivo de este archivo es 1"
test2.txt: "El número de archivo de este archivo es 2"
test3.txt: "El número de archivo de este archivo es 3"
Esto muestra que devuelve 1, 2, 3 por función FreeFile.
