Sommario
Questa esercitazione dimostrerà come utilizzare il metodo OpenTextFile di FileSystemObject.
Apri un file di testo
Questa lezione utilizza FileSystemObject. Per utilizzarlo, sarà necessario impostare un riferimento alla libreria runtime di script VB. Vedi qui per maggiori informazioni.
Puoi aprire un file di testo esistente per la lettura:
| 1 | Imposta FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading) |
e quindi incolla il suo contenuto nella prima cella del foglio di lavoro corrente, ad esempio:
| 12345678910 | Sub FSOReadFromTextFile()Dim FSO come nuovo oggetto FileSystemImposta FSO = CreateObject("Scripting.FileSystemObject")Imposta FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileDaLeggere.ChiudiThisWorkbook.Sheets(1).Range("A1").Value = TextStringFine sottotitolo |
Per ulteriori opzioni con la modalità ForReading, vedere qui.
In modalità ForWriting puoi sostituire il contenuto di un file esistente con nuovi dati ma non puoi leggere dal file.
| 123456789 | Sub FSOWriteToTextFile()Dim FSO come nuovo oggetto FileSystemImposta FSO = CreateObject("Scripting.FileSystemObject")Imposta FileToWrite = FSO.OpenTextFile("C:\Test\TestFile.txt", ForWriting)FileToWrite.Write "linea di prova"FileToWrite.CloseFine sottotitolo |
Per ulteriori opzioni con la modalità ForWriting, vedere qui.
In modalità ForAppending puoi scrivere fino alla fine del file. Non puoi leggere da questo file.
| 123456789 | Sub FSOAppendToTextFile()Dim FSO come nuovo oggetto FileSystemImposta FSO = CreateObject("Scripting.FileSystemObject")Imposta FileToAppend = FSO.OpenTextFile("C:\Test\TestFile.txt", ForAppending)FileToAppend.Write "contenuto aggiunto"FileToAppend.CloseFine sottotitolo |
