VBA otvorený textový súbor s OpenTextFile

Tento tutoriál ukáže, ako používať metódu OpenTextFile systému FileSystemObject.

Otvorte textový súbor

Táto lekcia používa FileSystemObject. Aby ste ho mohli používať, budete musieť nastaviť odkaz na run-time knižnicu VB skriptov. Ďalšie informácie nájdete tu.

Môžete otvoriť existujúci textový súbor na čítanie:

1	Nastaviť FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)

a potom prilepte jeho obsah do prvej bunky aktuálneho pracovného hárka, napr .:

12345678910

Sub FSOReadFromTextFile ()Dim FSO ako nový FileSystemObjectNastaviť FSO = CreateObject ("Scripting.FileSystemObject")Nastaviť FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringKoniec pod

Ďalšie možnosti s režimom ForReading nájdete tu.

V režime ForWriting môžete nahradiť obsah existujúceho súboru novými údajmi, ale zo súboru nemôžete čítať.

123456789

Sub FSOWriteToTextFile ()Dim FSO ako nový FileSystemObjectNastaviť FSO = CreateObject ("Scripting.FileSystemObject")Nastaviť FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write „testovací riadok“FileToWrite.CloseKoniec pod

Ďalšie možnosti s režimom ForWriting nájdete tu.

V režime ForAppending môžete písať na koniec súboru. Z tohto súboru nemôžete čítať.

123456789

Sub FSOAppendToTextFile ()Dim FSO ako nový FileSystemObjectNastaviť FSO = CreateObject ("Scripting.FileSystemObject")Nastaviť FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Napíšte „pripojený obsah“FileToAppend.CloseKoniec pod