Ce didacticiel montrera comment utiliser la méthode OpenTextFile du FileSystemObject.
Ouvrir un fichier texte
Cette leçon utilise le FileSystemObject. Pour l'utiliser, vous devrez définir une référence à la bibliothèque d'exécution du script VB. Voir ici pour plus d'informations.
Vous pouvez ouvrir un fichier texte existant pour le lire :
1 | Définir FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading) |
puis collez son contenu dans la première cellule de la feuille de calcul en cours, par exemple :
12345678910 | Sous FSOReadFromTextFile()Dim FSO en tant que nouvel objet FileSystemDéfinir FSO = CreateObject("Scripting.FileSystemObject")Définir FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading)TextString = FileToRead.ReadAllFichierVersLire.FermerThisWorkbook.Sheets(1).Range("A1").Value = TextStringFin du sous-marin |
Pour plus d'options avec le mode ForReading, voir ici.
En mode ForWriting, vous pouvez remplacer le contenu d'un fichier existant par de nouvelles données, mais vous ne pouvez pas lire à partir du fichier.
123456789 | Sous-FSOWriteToTextFile()Dim FSO en tant que nouvel objet FileSystemDéfinir FSO = CreateObject("Scripting.FileSystemObject")Définir FileToWrite = FSO.OpenTextFile("C:\Test\TestFile.txt", ForWriting)FileToWrite.Write "ligne de test"FichierVersEcrire.FermerFin du sous-marin |
Pour plus d'options avec le mode ForWriting, voir ici.
En mode ForAppending, vous pouvez écrire à la fin du fichier. Vous ne pouvez pas lire à partir de ce fichier.
123456789 | Sous FSOAppendToTextFile()Dim FSO en tant que nouvel objet FileSystemDéfinir FSO = CreateObject("Scripting.FileSystemObject")Définir FileToAppend = FSO.OpenTextFile("C:\Test\TestFile.txt", ForAppending)FileToAppend.Write "contenu ajouté"FichierVersAjouter.FermerFin du sous-marin |