Table des matières
Description du fichier gratuit
Renvoie le prochain numéro de fichier libre valide (entier).
Syntaxe FreeFile
Dans l'éditeur VBA, vous pouvez taper "FreeFile(" pour voir la syntaxe de la fonction FreeFile :
La fonction FreeFile contient un argument :
Numéro de plage : [Facultatif] 0 (par défaut) pour renvoyer le numéro de fichier dans la plage 1-255. 1 pour renvoyer le numéro de fichier dans la plage 256-511.
Exemples de fonction Excel VBA FreeFile
Veuillez exécuter le code suivant.
| 1234567891011121314151617 | Sous FreeFile_Example()Dim nIndex en tant qu'entierDim nFileNumber en tant qu'entierDim arrFileNumber (1 à 3) en tant qu'entierPour nIndex = 1 à 3nFileNumber = FreeFile ' Récupère le numéro de fichier inutilisétabNuméroFichier(nIndex) = nNuméroFichier' numéro.Ouvrez "D:\test" & nIndex & ".txt" pour la sortie en tant que nFileNumber 'Créez un nom de fichier.Écrivez #nFileNumber, "Le numéro de fichier de ce fichier est " & nFileNumber ' Texte de sortie."nIndex suivantPour nIndex = 1 à 3Close arrFileNumber(nIndex) ' Ferme le fichier.nIndex suivantFin du sous-marin |
Cela créera 3 fichiers sur le lecteur D.
test1.txt : « Le numéro de fichier de ce fichier est 1 »
test2.txt : « Le numéro de fichier de ce fichier est 2 »
test3.txt : "Le numéro de fichier de ce fichier est 3"
Cela montre que renvoie 1, 2, 3 par la fonction FreeFile.
