Sisällysluettelo
Tämä opetusohjelma osoittaa, kuinka käyttää FileSystemObjectin OpenTextFile -menetelmää.
Avaa tekstitiedosto
Tämä oppitunti käyttää FileSystemObject. Jotta voit käyttää sitä, sinun on asetettava viittaus VB-komentosarjan ajonaikaiseen kirjastoon. Katso lisätietoja täältä.
Voit avata olemassa olevan tekstitiedoston lukemista varten:
1 | Aseta FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
ja liitä sen sisältö nykyisen laskentataulukon ensimmäiseen soluun, esim.
12345678910 | Sub FSOReadFromTextFile ()Himmennä FSO uutena FileSystemObjectinaAseta FSO = CreateObject ("Scripting.FileSystemObject")Aseta FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Arvo = TextStringEnd Sub |
Lisää ForReading -tilan vaihtoehtoja löydät täältä.
ForWriting -tilassa voit korvata olemassa olevan tiedoston sisällön uusilla tiedoilla, mutta et voi lukea tiedostosta.
123456789 | Alaosa FSOWriteToTextFile ()Himmennä FSO uutena FileSystemObjectinaAseta FSO = CreateObject ("Scripting.FileSystemObject")Aseta FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testiviiva"FileToWrite.CloseEnd Sub |
Katso lisää ForWriting -tilan vaihtoehtoja täältä.
ForAppending -tilassa voit kirjoittaa tiedoston loppuun. Et voi lukea tästä tiedostosta.
123456789 | Sub FSOAppendToTextFile ()Himmennä FSO uutena FileSystemObjectinaAseta FSO = CreateObject ("Scripting.FileSystemObject")Aseta FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "liitetty sisältö"FileToAppend.CloseEnd Sub |